Use exact=FALSE inside regex_gadget

Goal: gadget input and output text boxes show actual tokens in string (one backslash == one backslash). Input box takes regular regex.

R/regex_gadget.R

@@ -131,7 +131,8 @@ regex_gadget <- function(text = NULL,
             useBytes = 'useBytes' %in% input$regex_options,
             # invert = 'invert' %in% input$regex_options,
             render = FALSE,
-            escape = TRUE),
+            escape = TRUE,
+            exact  = FALSE),
           collapse = ""
         )
       },