SCM

SCM Repository

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

Diff of /pkg/inlinedocs/R/parsers.R

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

revision 355, Mon Apr 9 14:46:33 2012 UTC revision 356, Mon Apr 9 15:39:09 2012 UTC
# Line 37  Line 37 
37    
38    ## Save the modification times of the Rd files    ## Save the modification times of the Rd files
39    old <- file.info(Rd.paths)$mtime    old <- file.info(Rd.paths)$mtime
40    Sys.sleep(1/60) ## to make sure there is at least 1 second elapsed  
41      ## make sure there is at least 2 seconds elapsed, which is the
42      ## resolution for recording times on windows file systems.
43      Sys.sleep(4)
44    
45    ## However, it will NOT generate Rd for files specified in    ## However, it will NOT generate Rd for files specified in
46    ## do.not.generate, if they DO exist already.    ## do.not.generate, if they DO exist already.
# Line 742  Line 745 
745           )           )
746    
747  extract.file.parse <- function # File content analysis  extract.file.parse <- function # File content analysis
748  ### Using the base \code{\link{parse}} function, analyse the file to link  ### Using the base \code{parse} function, analyse the file to link
749  ### preceding "prefix" comments to each active chunk. Those comments form  ### preceding "prefix" comments to each active chunk. Those comments form
750  ### the default description for that chunk. The analysis also looks for  ### the default description for that chunk. The analysis also looks for
751  ### S4 class "setClass" calls and R.oo setConstructorS3 and setMethodS3  ### S4 class "setClass" calls and R.oo setConstructorS3 and setMethodS3
# Line 814  Line 817 
817        generic.name <- chars[2]        generic.name <- chars[2]
818        object.name <- paste(generic.name,chars[3],sep=".")        object.name <- paste(generic.name,chars[3],sep=".")
819        if ( is.null(res[[generic.name]]) ){        if ( is.null(res[[generic.name]]) ){
820          generic.desc <- paste("Generic method behind \\code{\\link{",object.name,"}}",sep="")          ## TDH 9 April 2012 Do NOT add \\link in generic.desc below,
821            ## since it causes problems on R CMD check.
822            ##* checking Rd cross-references ... WARNING
823            ##Error in find.package(package, lib.loc) :
824            ##  there is no package called ‘MASS’
825            ##Calls: <Anonymous> -> lapply -> FUN -> find.package
826    
827            generic.desc <-
828              paste("Generic method behind \\code{",object.name,"}",sep="")
829          res[[generic.name]] <- new("DocLink",          res[[generic.name]] <- new("DocLink",
830                                     name=generic.name,                                     name=generic.name,
831                                     created=expr.type,                                     created=expr.type,
# Line 848  Line 859 
859  ### in the form \code{setClass("classname",\dots)} are also located and  ### in the form \code{setClass("classname",\dots)} are also located and
860  ### scanned for inline comments.  ### scanned for inline comments.
861  (doc.link  (doc.link
862  ### DocLink object as created by \code{\link{extract.file.parse}}.  ### DocLink object as created by \code{extract.file.parse}.
863  ### Note that \code{source} statements are \emph{ignored} when scanning for  ### Note that \code{source} statements are \emph{ignored} when scanning for
864  ### class definitions.  ### class definitions.
865   ){   ){

Legend:
Removed from v.355  
changed lines
  Added in v.356

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