From aeb2dbde2001ff46e123a34ee4f749ee81940f49 Mon Sep 17 00:00:00 2001
From: Holger Brandl <brandl@mpi-cbg.de>
Date: Tue, 30 Sep 2014 15:03:34 +0200
Subject: [PATCH] continued clip data anlaysis
---
R/utils/spinr.R | 33 ++++++++++++++++-----------------
R/utils/spinr.sh | 2 ++
2 files changed, 18 insertions(+), 17 deletions(-)
diff --git a/R/utils/spinr.R b/R/utils/spinr.R
index 1541fdd..6202c8a 100644
--- a/R/utils/spinr.R
+++ b/R/utils/spinr.R
@@ -15,28 +15,27 @@ options(width=150)
#rScript='/home/brandl/mnt/mack/project-raphael/Rcode/misc/Test.R'
#spinr <- function(rScript){
- print(Sys.getenv("TISSMORH_SCRIPTS"))
- spin(rScript, knit=F)
+spin(rScript, knit=F)
- mdScript <- str_replace(rScript, "[.]R$", ".Rmd")
+mdScript <- str_replace(rScript, "[.]R$", ".Rmd")
- system(paste("mv", mdScript, "tmp.Rmd"))
- system(paste("cat tmp.Rmd | grep -Ev '^#+$' | grep -Fv '#!/usr/bin/env Rscript' >", basename(mdScript)))
+system(paste("mv", mdScript, "tmp.Rmd"))
+system(paste("cat tmp.Rmd | grep -Ev '^#+$' | grep -Fv '#!/usr/bin/env Rscript' >", basename(mdScript)))
- cssHeader='
- <style type="text/css">
- body {
- max-width: 90%;
- }
- </style>
- '
- ls()
+cssHeader='
+<style type="text/css">
+ body {
+ max-width: 90%;
+ }
+</style>
+'
- ## custom title http://stackoverflow.com/questions/14124022/setting-html-meta-elements-with-knitr
- opts_chunk$set(cache = TRUE, fig.width=10, width=120)
- knit2html(basename(mdScript), header=cssHeader)
+## custom title http://stackoverflow.com/questions/14124022/setting-html-meta-elements-with-knitr
+opts_chunk$set(cache = TRUE, fig.width=10, width=120)
+knit2html(basename(mdScript), header=cssHeader)
- #file.remove(mdScript)
+file.remove(mdScript)
+file.remove("tmp.Rmd")
#}
# spinr("/home/brandl/mnt/mack/project-raphael/Rcode/misc/DivisionPerpendicularity.R")
diff --git a/R/utils/spinr.sh b/R/utils/spinr.sh
index 34d78dc..5c70d54 100644
--- a/R/utils/spinr.sh
+++ b/R/utils/spinr.sh
@@ -16,6 +16,8 @@ spinr(){
# echo 'devtools::source_url("https://dl.dropboxusercontent.com/u/113630701/datautils/R/utils/spinr.R"); spinr("'$rscript'")' | R --vanilla -q
echo 'rScript="'$rscript'"; devtools::source_url("https://dl.dropboxusercontent.com/u/113630701/datautils/R/utils/spinr.R")' | R --vanilla -q
+
+ rm *md
}
--
GitLab