[2] | 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 | function 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 |
---|