Mercurial > repos > saskia-hiltemann > testrepo
diff r_wrapper.sh @ 1:4afa63644ac3 draft default tip
Uploaded
| author | saskia-hiltemann |
|---|---|
| date | Mon, 09 Nov 2015 09:50:15 -0500 |
| parents | a8b089f5a429 |
| children |
line wrap: on
line diff
--- a/r_wrapper.sh Thu Oct 29 10:48:55 2015 -0400 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,23 +0,0 @@ -#!/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
