The R Project SVN R

PKG <- "@PKG@"
exloc <- file.path("../../../library", PKG, "R-ex")
if(!file.exists(exloc)) stop("no examples found")
list.of.files <- list.files(exloc, ".*\\.R")
file <- paste("check/", PKG, "-ex.R", sep="")
file.create(file)
cat(file=file, append=T, '.ptime <- proc.time()\n')
cat(file=file, append=T,
    paste('postscript("check/', PKG, '-Examples.ps")\n', sep=""))
cat(file=file, append=T, '.par.postscript <- par(no.readonly = TRUE)\n')
cat(file=file, append=T, 'options(contrasts = c(unordered = "contr.treatment", ordered =  "contr.poly"))\n')
if(PKG != "base")
    cat(file=file, append=T, paste('library(', PKG, ')', "\n"), sep="")
for(f in list.of.files) {
    cat(file=file, append=T, '.Random.seed <- c(0,rep(7654,3)); rm(list = ls())\n')
    file.append(file, file.path(exloc, f))
    cat(file=file, append=T, 'par(.par.postscript)\n')
}
cat(file=file, append=T, 'cat("Time elapsed: ", proc.time() - .ptime,"\\n")\n')
cat(file=file, append=T, 'dev.off(); quit("no")\n')