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 246, Thu Apr 7 13:21:39 2011 UTC revision 247, Thu Apr 7 13:22:13 2011 UTC
# Line 48  Line 48 
48    ## finally make a package using this file and see if it passes    ## finally make a package using this file and see if it passes
49    ## without warnings    ## without warnings
50    if(!is.null(e$.dontcheck))return()    if(!is.null(e$.dontcheck))return()
51    make.package.and.check(f,parsers)    make.package.and.check(f,parsers,verbose)
52    if(verbose)cat("\n")    if(verbose)cat("\n")
53  }  }
54    
55  ### Make a package by processing f with a standard DESCRIPTION, and  ### Make a package by processing f with a standard DESCRIPTION, and
56  ### stop if there are errors or warnings.  ### stop if there are errors or warnings.
57  make.package.and.check <- function(f,parsers=default.parsers){  make.package.and.check <- function(f,parsers=default.parsers,verbose=TRUE){
58    pkgname <- sub(".[rR]$","",basename(f))    pkgname <- sub(".[rR]$","",basename(f))
59    pkgdir <- file.path(tempdir(),pkgname)    pkgdir <- file.path(tempdir(),pkgname)
60    if(file.exists(pkgdir))unlink(pkgdir,recursive=TRUE)    if(file.exists(pkgdir))unlink(pkgdir,recursive=TRUE)

Legend:
Removed from v.246  
changed lines
  Added in v.247

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