|
1
|
1 #!/bin/sh
|
|
|
2
|
|
|
3 ### Run R providing the R script in $1 as standard input and passing
|
|
|
4 ### the remaining arguments on the command line
|
|
|
5
|
|
|
6 # Function that writes a message to stderr and exits
|
|
|
7 fail()
|
|
|
8 {
|
|
|
9 echo "$@" >&2
|
|
|
10 exit 1
|
|
|
11 }
|
|
|
12
|
|
|
13 # Ensure R executable is found
|
|
|
14 which R > /dev/null || fail "'R' is required by this tool but was not found on path"
|
|
|
15
|
|
|
16 # Extract first argument
|
|
|
17 infile=$1; shift
|
|
|
18
|
|
|
19 # Ensure the file exists
|
|
|
20 test -f $infile || fail "R input file '$infile' does not exist"
|
|
|
21
|
|
|
22 # Invoke R passing file named by first argument to stdin
|
|
|
23 R --vanilla --slave $* < $infile
|
