commit 2ce42b9302f53615a5f1c406ee391eff81472f7d
author Hao Zhu <haozhu233@gmail.com> Thu Jun 15 17:15:33 2017 -0400
committer Hao Zhu <haozhu233@gmail.com> Thu Jun 15 17:15:33 2017 -0400
tree 261e5a1e447b453e958034a10f8a5dff2af42794
parent 96a50b592bf8cedf74c60dbffa6c5080555f15cd

add add_header_left

R/util.R

diff --git a/R/util.R b/R/util.R
index a500879..802a56a 100644
--- a/R/util.R
+++ b/R/util.R
@@ -68,4 +68,18 @@
   return(mapping_matrix)
 }
 
+regex_escape <- function(x, double_backslash = FALSE) {
+  if (double_backslash) {
+    x <- gsub("\\\\", "\\\\\\\\", x)
+  }
+  x <- gsub("\\$", "\\\\\\$", x)
+  x <- gsub("\\(", "\\\\(", x)
+  x <- gsub("\\)", "\\\\)", x)
+  x <- gsub("\\[", "\\\\]", x)
+  x <- gsub("\\[", "\\\\]", x)
+  x <- gsub("\\{", "\\\\{", x)
+  x <- gsub("\\}", "\\\\}", x)
+  x <- gsub("\\*", "\\\\*", x)
+  return(x)
+}