Add escape_blackslash()

R/run_regex.R

     collapse = ""
   )
   x <- gsub("(?<![\\\\])\\)", ")</span>", x, perl = TRUE)
-  if (exact) x <- gsub("\\\\", "\\\\\\\\", x)
+  if (exact) x <- escape_backslash(x)
   paste0(first, x)
 }
 
   res <- run_regex(text, pattern, ...)
   res <- purrr::map_chr(res, wrap_result, escape = escape)
   res <- paste("<p class='results'>", res, "</p>")
+  if (!nchar(pattern)) res <- paste("<p class='results'>", text, "</p>")
   if (knitr) return(knitr::asis_output(res))
   if (!render) return(res)
   head <- c(

R/utils.R

   x = gsub("\"", """, x)
   x
 }
+
+escape_backslash <- function(x) {
+  gsub("\\\\", "\\\\\\\\", x)
+}