The R Project SVN R

Rev

Rev 27143 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 27143 Rev 29864
1 
#!/bin/sh
 1 
#!/bin/sh
2 
#
 2 
#
3 
# ${R_HOME}/bin/BATCH
 3 
# ${R_HOME}/bin/BATCH
4 
 
 4 
 
5 
revision='$Revision: 1.13 $'
 5 
revision='$Revision: 1.13 $'
6 
version=`set - ${revision}; echo ${2}`
 6 
version=`set - ${revision}; echo ${2}`
7 
version="R batch front end ${version}
 7 
version="R batch front end ${version}
8 
 
 8 
 
9 
Copyright (C) 2000--2003 The R Core Development Team.
 9 
Copyright (C) 2000--2003 The R Core Development Team.
10 
This is free software; see the GNU General Public Licence version 2
 10 
This is free software; see the GNU General Public Licence version 2
11 
or later for copying conditions.  There is NO warranty."
 11 
or later for copying conditions.  There is NO warranty."
12 
 
 12 
 
13 
opts="--restore --save --no-readline --gui=none"
 13 
opts="--restore --save --no-readline --gui=none"
14 
 
 14 
 
15 
usage="Usage: R CMD BATCH [options] infile [outfile]
 15 
usage="Usage: R CMD BATCH [options] infile [outfile]
16 
 
 16 
 
17 
Run R non-interactively with input from infile and place output (stdout
 17 
Run R non-interactively with input from infile and place output (stdout
18 
and stderr) to another file.  If not given, the name of the output file
 18 
and stderr) to another file.  If not given, the name of the output file
19 
is the one of the input file, with a possible '.R' extension stripped,
 19 
is the one of the input file, with a possible '.R' extension stripped,
20 
and '.Rout' appended.
 20 
and '.Rout' appended.
21 
 
 21 
 
22 
Options:
 22 
Options:
23 
  -h, --help		print short help message and exit
 23 
  -h, --help		print short help message and exit
24 
  -v, --version		print version info and exit
 24 
  -v, --version		print version info and exit
25 
  --			end processing of options
 25 
  --			end processing of options
26 
 
 26 
 
27 
Further arguments starting with a '-' are considered as options as long
 27 
Further arguments starting with a '-' are considered as options as long
28 
as '--' was not encountered, and are passed on to the R process, which
 28 
as '--' was not encountered, and are passed on to the R process, which
29 
by default is started with '$opts'.
 29 
by default is started with '$opts'.
30 
See also help(BATCH) inside R;
 30 
See also help(BATCH) inside R;
31 
 
 31 
 
32 
Report bugs to <r-bugs@r-project.org>."
 32 
Report bugs to <r-bugs@r-project.org>."
33 
 
 33 
 
34 
while test -n "${1}"; do
 34 
while test -n "${1}"; do
35 
  case ${1} in
 35 
  case ${1} in
36 
    -h|--help)
 36 
    -h|--help)
37 
      echo "${usage}"; exit 0 ;;
 37 
      echo "${usage}"; exit 0 ;;
38 
    -v|--version)
 38 
    -v|--version)
39 
      echo "${version}"; exit 0 ;;
 39 
      echo "${version}"; exit 0 ;;
40 
    --min-vsize|--min-nsize|--max-vsize|--max-nsize|--vsize|--nsize)
 40 
    --min-vsize|--min-nsize|--max-vsize|--max-nsize|--vsize|--nsize)
41 
      # Deprecated (hence not documented)...
 41 
      # Deprecated (hence not documented)...
42 
      opts="${opts} ${1}=${2}"; shift 2 ;;
 42 
      opts="${opts} ${1}=${2}"; shift 2 ;;
43 
    --) shift; break ;;
 43 
    --) shift; break ;;
44 
    -*) opts="${opts} ${1}"; shift ;;
 44 
    -*) opts="${opts} ${1}"; shift ;;
45 
    *)  break ;;
 45 
    *)  break ;;
46 
  esac
 46 
  esac
47 
done
 47 
done
48 
 
 48 
 
49 
in=${1}
 49 
in=${1}
50 
out=${2-`basename ${1} .R`.Rout}
 50 
out=${2-`basename ${1} .R`.Rout}
51 
 
 51 
 
52 
(echo "invisible(options(echo = TRUE))"
 52 
(echo "invisible(options(echo = TRUE))"
53 
  cat ${in}
 53 
  cat ${in}
54 
  echo "proc.time()"
 54 
  echo "proc.time()"
55 
) | ${R_HOME}/bin/R ${opts} >${out} 2>&1
 55 
) | ${R_HOME}/bin/R ${opts} >${out} 2>&1
56 
 
 56 
 
57 
### Local Variables: ***
 57 
### Local Variables: ***
58 
### mode: sh ***
 58 
### mode: sh ***
59 
### sh-indentation: 2 ***
 59 
### sh-indentation: 2 ***
60 
### End: ***
 60 
### End: ***