#!/bin/sh
#
# ${R_HOME}/bin/BATCH

OPTS="--restore --save --no-readline"

while test -n "${1}"; do
    case ${1} in
	--) shift; break ;;
	--vsize|--nsize|-v|-n)
	    OPTS="${OPTS} ${1} ${2}"; shift 2 ;;
	-*) OPTS="${OPTS} ${1}"; shift ;;
	*)  break ;;
    esac
done

IN=${1}
OUT=${2-`basename ${1} .R`.Rout}

(echo "invisible(options(echo = TRUE))"
 cat ${IN}
 echo "proc.time()"
) | ${R_HOME}/bin/R ${OPTS} >${OUT} 2>&1