Fixed #396
diff --git a/R/util.R b/R/util.R
index b156260..4e5274f 100644
--- a/R/util.R
+++ b/R/util.R
@@ -170,3 +170,7 @@
   return(ifelse(nchar(x) != origin_len, stringr::str_remove(x, "\\\\\\}$"), x))
 }
 
+sim_double_escape <- function(x) {
+  return(sub("\\\\", "\\\\\\\\", x))
+}
+