R/str_to_regex.R

In linogaliana/tablelight: R package to reduce memory needs when creating regression tables

#' Espace special characters in regex
#'
#' @param str A character vector
#' @return Initial vector with special
#'   characters escaped

str_to_regex <- function(str){

  special_characters <- c("^", "$", ".",
  "|", "?", "*",
  "+", "(", ")",
  "[", "]" ,"{", "}")

  return(
    mgsub(special_characters, paste0("\\", special_characters),
      str)
  )
}