| # ${R_HOME}/bin/Sweave -*- sh -*- | |
| R_EXE="${R_HOME}/bin/R" | |
| R_SWEAVE_OPTIONS=${R_SWEAVE_OPTIONS:='--no-restore --slave'} | |
| args= | |
| while test -n "${1}"; do | |
| ## quote each argument here, unquote in R code. | |
| args="${args}nextArg${1}" | |
| shift | |
| done | |
| echo "utils:::.Sweave()" | "${R_EXE}" $R_SWEAVE_OPTIONS --args ${args} |