Fix checking for unicode chars that need escaped

R/regex_gadget.R

@@ -320,7 +320,7 @@ regex_gadget <- function(text = NULL,
 
 sanitize_text_input <- function(x) {
   if (is.null(x) || !nchar(x)) return(x)
-  if (grepl("\\u|\\x|\\N|\\a|\\o", x)) {
+  if (grepl("\\u[0-9a-f]{4,8}|\\x[0-9a-f]{2}|\\x\\{[0-9a-f]{1,6}\\}|\\N|\\0[0-8]{1,3}", x)) {
     try({
       y <- stringi::stri_unescape_unicode(x)
     }, silent = TRUE)