SCM

SCM Repository

[inlinedocs] Diff of /pkg/inlinedocs/R/test.R
ViewVC logotype

Diff of /pkg/inlinedocs/R/test.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 307, Fri Oct 21 11:37:19 2011 UTC revision 367, Thu Oct 25 10:07:37 2012 UTC
# Line 11  Line 11 
11   verbose=TRUE   verbose=TRUE
12  ### Show output?  ### Show output?
13   ){   ){
14      ##seealso<< \code{\link{save.test.result}}
15    e <- new.env()    e <- new.env()
16    suppressWarnings(sys.source(f,e))    suppressWarnings(sys.source(f,e))
17    ## these are the items to check for, in no particular order    ## these are the items to check for, in no particular order
# Line 75  Line 76 
76    rdir <- file.path(pkgdir,"R")    rdir <- file.path(pkgdir,"R")
77    if(verbose)print(rdir)    if(verbose)print(rdir)
78    dir.create(rdir,recursive=TRUE)    dir.create(rdir,recursive=TRUE)
79    desc <- system.file(file.path("silly","DESCRIPTION"),package="inlinedocs")    sillydir <- system.file("silly",package="inlinedocs")
80    file.copy(desc,pkgdir)    tocopy <- file.path(sillydir,c("DESCRIPTION","NAMESPACE"))
81      file.copy(tocopy,pkgdir)
82    file.copy(f,rdir)    file.copy(f,rdir)
83    package.skeleton.dx(pkgdir,parsers)    package.skeleton.dx(pkgdir,parsers)
84    cmd <- sprintf("%s CMD check %s",file.path(R.home("bin"), "R"),pkgdir)    cmd <- sprintf("%s CMD check --as-cran %s",
85                     file.path(R.home("bin"), "R"),
86                     pkgdir)
87    if(verbose)cat(cmd,"\n")    if(verbose)cat(cmd,"\n")
88    checkLines <- system(cmd,intern=TRUE)    checkLines <- system(cmd,intern=TRUE)
89    warnLines <- grep("(WARNING|ERROR)",checkLines,value=TRUE)    warnLines <- grep("(WARNING|ERROR)",checkLines,value=TRUE)

Legend:
Removed from v.307  
changed lines
  Added in v.367

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge