fixed cat call

R/rknit/rknit_preprocessor.R

@@ -12,5 +12,4 @@ mdRegex <- "^#([#]*)> ([^{]*)([{]+(.+)[}])?"
 
 #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(stdout())
-
+    str_replace(mdRegex, "```\n\\1 \\2\n```{r \\4}") %>% paste(collapse="\n") %>% cat()