From 6e6128c2187f524927e0f745d456a5bec59859f6 Mon Sep 17 00:00:00 2001
From: Holger Brandl <brandl@mpi-cbg.de>
Date: Fri, 13 Feb 2015 10:58:12 +0100
Subject: [PATCH] removed unused chmod
---
R/spinr/spin_utils.sh | 1 -
R/utils/spinr.R | 37 -------------------------------------
2 files changed, 38 deletions(-)
delete mode 100644 R/utils/spinr.R
diff --git a/R/spinr/spin_utils.sh b/R/spinr/spin_utils.sh
index ad4c14d..f3d2fe8 100755
--- a/R/spinr/spin_utils.sh
+++ b/R/spinr/spin_utils.sh
@@ -4,7 +4,6 @@ spinr(){
if [ -z "$(which spin.R)" ]; then
>&2 echo "spin.R is not installed. See https://github.com/holgerbrandl/datautils/tree/master/R/spinr for details"
fi
- chmod +x
spin.R $*
}
diff --git a/R/utils/spinr.R b/R/utils/spinr.R
deleted file mode 100644
index f7713c4..0000000
--- a/R/utils/spinr.R
+++ /dev/null
@@ -1,37 +0,0 @@
-## a thin wrapper around spin to make it more useful with more custom output
-
-require(plyr)
-require(knitr)
-require(stringr)
-
-options(width=150)
-
-#https://groups.google.com/forum/#!topic/knitr/ojcnq5Nm298
-
-## better table css: http://www.stat.ubc.ca/~jenny/STAT545A/topic10_tablesCSS.html
-spin(rScript, knit=F)
-
-rmdScript <- str_replace(rScript, "[.]R$", ".Rmd")
-
-system(paste("mv", rmdScript, "tmp.Rmd"))
-system(paste("cat tmp.Rmd | grep -Ev '^#+$' | grep -Fv '#!/usr/bin/env Rscript' >", basename(rmdScript)))
-file.remove("tmp.Rmd")
-
-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)
-
-## tell knitr to stop on errors https://github.com/yihui/knitr/issues/344 and http://yihui.name/knitr/options
-opts_knit$set(stop_on_error = 2L)
-
-knit2html(basename(rmdScript), header=cssHeader)
-
-file.remove(basename(rmdScript))
-file.remove(basename(str_replace(rScript, "[.]R$", ".md")))
--
GitLab