The R Project SVN R

Rev

Rev 5290 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5290 Rev 5518
Line 30... Line 30...
30 
for file in ${FILES}
 30 
for file in ${FILES}
31 
do
 31 
do
32 
  bf=`basename $file .R`
 32 
  bf=`basename $file .R`
33 
  if test -n "`grep '_ Examples _' $file`"; then
 33 
  if test -n "`grep '_ Examples _' $file`"; then
34 
    echo "rm(list = ls(all = TRUE)); .Random.seed <- c(0,rep(7654,3))"
 34 
    echo "rm(list = ls(all = TRUE)); .Random.seed <- c(0,rep(7654,3))"
35 
  else
 - 
 
36 
    if [ "${USER}" = maechler ]; then
 - 
 
37 
      ## Remind certain people to upgrade the online help
 - 
 
38 
      echo "\`${bf}' has no examples." >& 2
 - 
 
39 
    fi
 - 
 
40 
  fi
 35 
  fi
41 
 
 36 
 
42 
  cat ${file}
 37 
  cat ${file}
43 
 
 38 
 
44 
  if test -n "`grep 'par(' ${file}`"; then
 39 
  if test -n "`grep 'par(' ${file}`"; then