The R Project SVN R

Rev

Rev 4580 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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