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 247, Thu Apr 7 13:22:13 2011 UTC revision 249, Thu Apr 7 13:58:27 2011 UTC
# Line 52  Line 52 
52    if(verbose)cat("\n")    if(verbose)cat("\n")
53  }  }
54    
55  ### Make a package by processing f with a standard DESCRIPTION, and  make.package.and.check <- function
56  ### stop if there are errors or warnings.  ### Assemble some R code into a package and process it using R CMD
57  make.package.and.check <- function(f,parsers=default.parsers,verbose=TRUE){  ### check, stopping with an error if the check resulted in any errors
58    ### or warnings.
59    (f, ##<< R code file name from which we will make a package
60     parsers=default.parsers,
61    ### Parsers to use to make the package documentation.
62     verbose=TRUE
63    ### print the check command line?
64     ){
65    pkgname <- sub(".[rR]$","",basename(f))    pkgname <- sub(".[rR]$","",basename(f))
66    pkgdir <- file.path(tempdir(),pkgname)    pkgdir <- file.path(tempdir(),pkgname)
67    if(file.exists(pkgdir))unlink(pkgdir,recursive=TRUE)    if(file.exists(pkgdir))unlink(pkgdir,recursive=TRUE)

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

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