The R Project SVN R

Rev

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

Rev 5429 Rev 6333
Line 1... Line 1...
1 
PKG <- "@PKG@"
 1 
PKG <- "@PKG@"
2 
exloc <- file.path("../../../../library", PKG, "R-ex")
 2 
exloc <- file.path("../../../../library", PKG, "R-ex")
3 
if(!file.exists(exloc)) stop("no examples found")
 3 
if(!file.exists(exloc)) stop("no examples found")
4 
list.of.files <- list.files(exloc, ".*\\.R")
 4 
list.of.files <- list.files(exloc, ".*\\.R")
5 
file <- paste(PKG, "-ex.R", sep="")
 5 
file <- paste(PKG, "-Ex.R", sep="")
6 
file.create(file)
 6 
file.create(file)
7 
cat(file=file, append=T, 'attach(NULL, name = ".CheckExEnv")\n',
 7 
cat(file=file, append=T, 'attach(NULL, name = ".CheckExEnv")\n',
8 
'assign(".CheckExEnv", pos.to.env(2), pos = length(search()))\n',
 8 
'assign(".CheckExEnv", pos.to.env(2), pos = length(search()))\n',
9 
'assign("ptime",proc.time(), env=.CheckExEnv)\n')
 9 
'assign("ptime",proc.time(), env=.CheckExEnv)\n')
10 
cat(file=file, append=T,
 10 
cat(file=file, append=T,