# HG changeset patch
# User dsobral
# Date 1332487328 14400
# Node ID 74753a2845b95a30509e09a66ce7ce210c22202a
# Parent  71c4282199f06706e7ba6e3178fe9cd9951dafcb
Uploaded

diff -r 71c4282199f0 -r 74753a2845b9 r_wrapper.sh
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/r_wrapper.sh	Fri Mar 23 03:22:08 2012 -0400
@@ -0,0 +1,23 @@
+#!/bin/sh
+
+### Run R providing the R script in $1 as standard input and passing 
+### the remaining arguments on the command line
+
+# Function that writes a message to stderr and exits
+function fail
+{
+    echo "$@" >&2
+    exit 1
+}
+
+# Ensure R executable is found
+which R > /dev/null || fail "'R' is required by this tool but was not found on path" 
+
+# Extract first argument
+infile=$1; shift
+
+# Ensure the file exists
+test -f $infile || fail "R input file '$infile' does not exist"
+
+# Invoke R passing file named by first argument to stdin
+R --vanilla --slave $* < $infile