exclude new lines in test string half slash

Author: AdamSpannbauer

r_regex_tester/global.R

@@ -32,8 +32,8 @@ highlight_color_pallete = "Set3"
 mgsub = function(pattern, replacement, text.var, leadspace = FALSE,
                   trailspace = FALSE, fixed = TRUE, trim = TRUE,
                   order.pattern = fixed, ...) {
-  #' @description I wanted qdap::mgsub() w/o having to have full qdap package,
-  #'              which has had issues deploying around rJava i think...
+  #' @description I wanted qdap::mgsub() w/o having to have full qdap package.
+  #'              qdap has had issues related to deploying a shinyapp.
 
   if (leadspace | trailspace)
     replacement = spaste(replacement,

r_regex_tester/server.R

@@ -6,7 +6,7 @@ shinyServer(function(input, output, session) {
         is.null(safe_slashes(input$pattern))
     ) | (
       !("test_str" %in% input$auto_escape_check_group) &
-        is.null(safe_slashes(input$test_str))
+        is.null(safe_slashes(input$test_str, exclude = c("\\n")))
     )
   })
 
@@ -25,7 +25,7 @@ shinyServer(function(input, output, session) {
 
     test_str = ifelse("test_str" %in% input$auto_escape_check_group,
                       input$test_str,
-                      safe_slashes(input$test_str))
+                      safe_slashes(input$test_str, exclude = c("\\n")))
 
     test_str
   })
@@ -57,6 +57,8 @@ shinyServer(function(input, output, session) {
       fixed_log,
       color_palette = highlight_color_pallete
     )
+    
+    out = gsub("\n", "<br>", out)
 
     if (is.null(out)) {
       HTML("")