The R Project SVN R

Rev

Rev 4580 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2195 hornik 1 
#!/bin/sh
2 
#
4580 hornik 3 
# ${R_HOME}/bin/BATCH
2195 hornik 4 
 
2510 maechler 5 
OPTS="--restore --save --no-readline"
2195 hornik 6 
 
7 
while test -n "${1}"; do
8 
    case ${1} in
9 
	--) shift; break ;;
2763 hornik 10 
	--vsize|--nsize|-v|-n)
2195 hornik 11 
	    OPTS="${OPTS} ${1} ${2}"; shift 2 ;;
12 
	-*) OPTS="${OPTS} ${1}"; shift ;;
13 
	*)  break ;;
14 
    esac
15 
done
16 
 
17 
IN=${1}
18 
OUT=${2-`basename ${1} .R`.Rout}
19 
 
2510 maechler 20 
(echo "invisible(options(echo = TRUE))"
21 
 cat ${IN}
22 
 echo "proc.time()"
4580 hornik 23 
) | ${R_HOME}/bin/R ${OPTS} >${OUT} 2>&1