Thanks to a regex, comments are now supported. Close #4

neo4j-rstats · Mar 6, 2018 · 49dae37 · 49dae37
1 parent 3d8072f
commit 49dae37
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/knitr_engine.R b/R/knitr_engine.R
@@ -39,7 +39,7 @@ set_neo4j_engine <- function(neo4j_home,
     if (options$eval) {
       options$code_to_eval <- clean_input(options$code)
       out <- encypher_for_knitr(options)
-      #out <- options$code
+      #out <- options$code_to_eval
     }
     engine_output(options, options$code, out)
   })

diff --git a/R/utils.R b/R/utils.R
@@ -1,4 +1,5 @@
 clean_input <- function(vec){
+  vec <- gsub("^\\/\\/.+$", "\n", vec, perl = TRUE)
   vec <- paste(gsub("\n", " ", vec), collapse = " ")
   vec <- gsub(";", ";%", vec)
   vec <- gsub("\'", "\"", vec)