| Line 2... |
Line 2... |
| 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, '..CheckEnv <- new.env()\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("ptime",proc.time(), env=..CheckEnv)\n')
|
9 |
'assign("ptime",proc.time(), env=.CheckExEnv)\n')
|
| 9 |
cat(file=file, append=T,
|
10 |
cat(file=file, append=T,
|
| 10 |
paste('postscript("', PKG, '-Examples.ps")\n', sep=""))
|
11 |
paste('postscript("', PKG, '-Examples.ps")\n', sep=""))
|
| 11 |
cat(file=file, append=T,
|
12 |
cat(file=file, append=T,
|
| 12 |
'assign("par.postscript", par(no.readonly = TRUE), env=..CheckEnv)\n')
|
13 |
'assign("par.postscript", par(no.readonly = TRUE), env=.CheckExEnv)\n')
|
| 13 |
cat(file=file, append=T, 'options(contrasts = c(unordered = "contr.treatment", ordered = "contr.poly"))\n')
|
14 |
cat(file=file, append=T, 'options(contrasts = c(unordered = "contr.treatment", ordered = "contr.poly"))\n')
|
| 14 |
cat(file=file, append=T, 'options(pager="console")\n')
|
15 |
cat(file=file, append=T, 'options(pager="console")\n')
|
| 15 |
if(PKG != "base")
|
16 |
if(PKG != "base")
|
| 16 |
cat(file=file, append=T, paste('library(', PKG, ')', "\n"), sep="")
|
17 |
cat(file=file, append=T, paste('library(', PKG, ')', "\n"), sep="")
|
| 17 |
for(f in list.of.files) {
|
18 |
for(f in list.of.files) {
|
| 18 |
cat(file=file, append=T,
|
19 |
cat(file=file, append=T,
|
| 19 |
'll <- ls(all=TRUE);rm(list= ll[ll != "..CheckEnv"]); .Random.seed <- c(0,rep(7654,3))\n')
|
20 |
'rm(list = ls(all=TRUE)); .Random.seed <- c(0,rep(7654,3))\n')
|
| 20 |
file.append(file, file.path(exloc, f))
|
21 |
file.append(file, file.path(exloc, f))
|
| 21 |
cat(file=file, append=T, 'par(get("par.postscript",env=..CheckEnv))\n')
|
22 |
cat(file=file, append=T, 'par(get("par.postscript",env=.CheckExEnv))\n')
|
| 22 |
cat(file=file, append=T, 'options(contrasts = c(unordered="contr.treatment", ordered = "contr.poly"))\n')
|
23 |
cat(file=file, append=T, 'options(contrasts = c(unordered="contr.treatment", ordered = "contr.poly"))\n')
|
| 23 |
}
|
24 |
}
|
| 24 |
cat(file=file, append=T,
|
25 |
cat(file=file, append=T,
|
| 25 |
'cat("Time elapsed: ", proc.time() - get("ptime",env=..CheckEnv),"\\n")\n')
|
26 |
'cat("Time elapsed: ", proc.time() - get("ptime", env=.CheckExEnv),"\\n")\n')
|
| 26 |
cat(file=file, append=T, 'dev.off(); quit("no")\n')
|
27 |
cat(file=file, append=T, 'dev.off(); quit("no")\n')
|
| 27 |
|
28 |
|
The R Project SVN
R