From 4b814c27adcf3a6d0a0cfee99e04f25fd098d9f4 Mon Sep 17 00:00:00 2001
From: Holger Brandl <brandl@mpi-cbg.de>
Date: Tue, 14 Oct 2014 13:22:12 +0200
Subject: [PATCH] added snippet spinner
---
R/utils/spinr.sh | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
diff --git a/R/utils/spinr.sh b/R/utils/spinr.sh
index 3bfda87..264fd24 100644
--- a/R/utils/spinr.sh
+++ b/R/utils/spinr.sh
@@ -20,6 +20,28 @@ spinr(){
rm *md
}
+spinsnip(){
+ if [ $# -ne 1 ]; then
+ >&2 echo "Usage: spinsnip <report name>"
+ return
+ fi
+
+ reportName=$1
+ tmpR=$reportName.R
+
+ echo "processing $tmpR..."
+ head $tmpR
+
+ ## http://stackoverflow.com/questions/11454343/pipe-output-to-bash-function
+ cat > $tmpR
+
+ spinr $tmpR
+ rm $tmpR
+}
+
+#testsnip(){
+# cat > test.txt
+#}
#' cd /home/brandl/mnt/mack/project-raphael/reports/spin_report
#' source <(curl https://dl.dropboxusercontent.com/u/113630701/datautils/R/utils/spinr.sh)
--
GitLab