cont. preprocessor

R/rknit/rknit_preprocessor.R

@@ -11,6 +11,6 @@ mdRegex <- "^#([#]*)> ([^{]*)([{]+(.+)[}])?"
 #str_match("#>  {fig.width=10}", mdRegex)
 #str_replace("#> * normBxx >0 --> horizontal", mdRegex, "```\n\\1\\2\n```{r \\4}") %>% paste(collapse="\n") %>% cat()
 
-readLines(file("/Users/brandl/Dropbox/Public/datautils/R/rknit/rknit_example.R")) %>%
-#readLines(file("stdin")) %>%
+#readLines(file("/Users/brandl/Dropbox/Public/datautils/R/rknit/rknit_example.R")) %>%
+readLines(file("stdin")) %>%
     str_replace(mdRegex, "```\n\\1 \\2\n```{r \\4}") %>% paste(collapse="\n") %>% cat()