From 15f6cec90b44d2dd112b14b4ed7c255621abfefd Mon Sep 17 00:00:00 2001
From: Holger Brandl <brandl@mpi-cbg.de>
Date: Fri, 14 Nov 2014 16:12:53 +0100
Subject: [PATCH] cont with qc reporting
---
R/ggplot_commons.R | 3 +--
R/utils/spinr.R | 1 +
R/utils/spinr.sh | 4 ++--
3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/R/ggplot_commons.R b/R/ggplot_commons.R
index eb94664..4b50907 100644
--- a/R/ggplot_commons.R
+++ b/R/ggplot_commons.R
@@ -1,6 +1,6 @@
require.auto(ggplot2)
require.auto(scales)
-
+require(grid)
@@ -9,7 +9,6 @@ scale_fill_redgreed <- function() scale_fill_manual(values = c("red","darkgreen"
rotXlab <- function() theme(axis.text.x = element_text(angle = 90, hjust = 1))
- require(grid)
# Multiple plot function
diff --git a/R/utils/spinr.R b/R/utils/spinr.R
index 3087cf3..0366166 100644
--- a/R/utils/spinr.R
+++ b/R/utils/spinr.R
@@ -1,5 +1,6 @@
## a thin wrapper around spin to make it more useful with more custom output
+require(plyr)
require(knitr)
require(stringr)
diff --git a/R/utils/spinr.sh b/R/utils/spinr.sh
index 1daa194..6db0af9 100644
--- a/R/utils/spinr.sh
+++ b/R/utils/spinr.sh
@@ -1,8 +1,8 @@
spinr(){
- if [ $# -ne 1 ]; then
- echo -e "Usage: spinr <script.R>\nJust knit R documents as they are, no markdown is required (but supported to some extent)"
+ if [ $# -lt 1 ]; then
+ echo -e "Usage: spinr <script.R> [<other args>*]\nJust knit R documents as they are, no markdown is required (but supported to some extent)"
return
fi
--
GitLab