Merge pull request #13 from AdamSpannbauer/perl_12

Fix look ahead/behinds and quote issue

Author: AdamSpannbauer

r_regex_tester/helper_functions.R

@@ -3,13 +3,16 @@ library(data.table)
 half_slashes = function(str) {
   deparsed = deparse(str)
 
-  half_df = data.table::as.data.table(stringr::str_match_all(deparsed, "(\\\\+)(.)")[[1]])
+  half_df = data.table::as.data.table(stringr::str_match_all(deparsed, "(\\\\)(.)")[[1]])
   data.table::setnames(half_df, c("match","slash_cap","char_cap"))
   half_df[, half_slash := stringr::str_sub(slash_cap, 
                                            end=(nchar(slash_cap)/2))]
   half_df[, out := paste0(half_slash, char_cap)]
   half_df = unique(half_df[order(nchar(out)), ])
 
+  # Removing slashes before double quoutes breaks eval
+  half_df = half_df[char_cap != '"']
+  
   halfed_deparse = mgsub(half_df$match, 
                          half_df$out, 
                          deparsed, 

r_regex_tester/server.R

@@ -12,7 +12,7 @@ shinyServer(function(input, output, session){
                      input$pattern, 
                      safe_slashes(input$pattern))
 
-    htmltools::htmlEscape(pattern)
+    pattern
   })
 
   test_str = reactive({
@@ -21,8 +21,8 @@ shinyServer(function(input, output, session){
     test_str = ifelse("test_str" %in% input$auto_escape_check_group, 
                       input$test_str, 
                       safe_slashes(input$test_str))
-    
-    htmltools::htmlEscape(test_str)
+
+    test_str
   })
 
   match_list = reactive({

r_regex_tester/ui.R

@@ -88,8 +88,11 @@ shinyUI(
                                                       HTML("<strong><font size='5'>Input</font></strong><hr>"),
                                                       textInput("pattern",  label="Matching Pattern", value="t(es)(t)", 
                                                                 placeholder="Enter regex to match", width="100%"),
-                                                      textAreaInput("test_str", label="Test String",  value="This is a test string for testing regex.",
-                                                                    placeholder="Enter string to match regex against",width="100%")
+                                                      textAreaInput("test_str", 
+                                                                    label=HTML("Test String (<a href='https://stackoverflow.com/a/1732454/5731525' target='_blank'>HTML tags are not supported</a>)"),  
+                                                                    value="This is a test string for testing regex.",
+                                                                    placeholder="Enter string to match regex against",
+                                                                    width="100%")
                                                       ),
                                             bsCollapse(id = "collapseExample",
                                                        bsCollapsePanel(HTML("<strong><font size='5'>Reg-Explanation</font></strong>"),