R/replaceExpressions.PlainTextDocument.R

In Chris1221/goldi: Gene Ontology Label Discernment and Identification

#' Internal expression replacement with grep
#'
#' @param x pattern
#'
#' @export

replaceExpressions.PlainTextDocument <- function(x){
	x <- gsub("-", " ", x, ignore.case =FALSE, fixed = TRUE)
	x <- gsub(".", "\n", x,ignore.case = FALSE, fixed = TRUE)
	x <- gsub("_", "\n", x,ignore.case = FALSE, fixed = TRUE)
	return(x) 
}