R/regex.R

In colin-fraser/colinlib: Just some R functions that I find useful

#' Escape regex
#'
#' @param x character
#'
#' @return escaped version of x
#' @export
escape <- function(x) {
  pattern <- r"--((?=[-\[\]{}()\*\+\?\.\,\\\^\$\|\#]))--"
  gsub(pattern, r"(\\)", x, perl = TRUE)
}