From c0bff3c9e6aa83b1a9f8500810c9fb59b04335d0 Mon Sep 17 00:00:00 2001
From: Holger Brandl <brandl@mpi-cbg.de>
Date: Mon, 15 Sep 2014 15:58:17 +0200
Subject: [PATCH] bug fixes
---
R/rknit/rknit.sh | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/R/rknit/rknit.sh b/R/rknit/rknit.sh
index 5f2fda0..1904cf8 100644
--- a/R/rknit/rknit.sh
+++ b/R/rknit/rknit.sh
@@ -28,13 +28,14 @@ rknit(){
# cat $rscript | grep -Fv '#!' | Rscript --vanilla - 'require(stringr); require(dplyr); readLines(file("stdin")) %>% str_replace("^#([#]*)> ([^{]*)([{]+.+[}])?", "```\n\\1 \\2\n```{r \\3}") %>% collapsewriteLines(stdout())' # >> $tmpRmd
# cat $rscript | grep -Fv '#!' | Rscript --vanilla -e 'source("/Users/brandl/Dropbox/Public/datautils/R/rknit/rknit_preprocessor.R")' >> $tmpRmd
# cat $rscript | sed 's/^#>$//g'| grep -Fv '#!' | Rscript --vanilla -e 'devtools::source_url("https://raw.githubusercontent.com/holgerbrandl/datautils/master/R/rknit/rknit_preprocessor.R")' | grep -v "^#>" >> $tmpRmd
- cat $rscript | sed 's/^#>$//g' | grep -Fv '#!'| grep -v '^#*$' | Rscript --vanilla -e 'devtools::source_url("https://dl.dropboxusercontent.com/u/113630701/datautils/R/rknit/rknit_preprocessor.R")' | grep -v "^#>" >> $tmpRmd
+
+ cat $rscript | sed 's/^#>$//g' | grep -Fv '#!'| grep -v '^#+$' | Rscript --vanilla -e 'devtools::source_url("https://dl.dropboxusercontent.com/u/113630701/datautils/R/rknit/rknit_preprocessor.R")' >> $tmpRmd
echo '```' >> $tmpRmd
echo 'require(knitr); options(width=150); opts_chunk$set(cache = TRUE, fig.width=10, width=100); knit2html("'$tmpRmd'", output="'$(basename $rscript .R)'")' | R --vanilla -q
- rm $(basename $rscript .R) $tmpRmd
+# rm $(basename $rscript .R) $tmpRmd
}
--
GitLab