R/de_regex.R

In DSSAT: A Comprehensive R Interface for the DSSAT Cropping Systems Model

#' @importFrom dplyr "%>%"
#' @importFrom stringr str_replace_all
#'
de_regex <- function(the_regex){
  the_string <- the_regex %>%
    str_replace_all(c('\\(\\?=[^\\)]+\\)'='',
                      '\\(\\?\\![^\\)]+\\)'='',
                      '\\(\\?<=[^\\)]+\\)'='',
                      '\\(\\?<\\![^\\)]+\\)'='',
                      ' (\\*)|(\\+)'='','\\.'='','\\*'='','\\\\'='',
                      '\\+'='','\\^'='','\\|'='',
                      '\\^'='','\\$'=''))
  return(the_string)
}