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 200, Fri Feb 18 15:02:16 2011 UTC revision 204, Fri Feb 18 16:48:22 2011 UTC
# Line 49  Line 49 
49      objs <- objs[sapply(objs,subfun)]      objs <- objs[sapply(objs,subfun)]
50      L <- list()      L <- list()
51      on.exit(cat(sprintf("Parser Function failed on %s\n",N)))      on.exit(cat(sprintf("Parser Function failed on %s\n",N)))
52      for(N in names(docs)){      for(N in union(names(docs),names(objs))){
53        o <- objs[[N]]        o <- objs[[N]]
54        L[[N]] <- FUN(src=attr(o,"source"),        L[[N]] <- FUN(src=attr(o,"source"),
55                      name=N,objs=objs,o=o,docs=docs,doc=docs[[N]],...)                      name=N,objs=objs,o=o,docs=docs,doc=docs[[N]],...)
# Line 924  Line 924 
924  ### Apply all parsers relevant to extract info from just 1 code file.  ### Apply all parsers relevant to extract info from just 1 code file.
925  (f,  (f,
926  ### File name of R code to read and parse.  ### File name of R code to read and parse.
927   parsers=nondesc.parsers,   parsers=NULL,
928  ### Parser Functions to use to parse the code and extract  ### Parser Functions to use to parse the code and extract
929  ### documentation.  ### documentation.
930   ...   ...
931  ### Other arguments to pass to Parser Functions.  ### Other arguments to pass to Parser Functions.
932   ){   ){
933      if(is.null(parsers))parsers <- nondesc.parsers
934    apply.parsers(readLines(f),parsers,verbose=FALSE,...)    apply.parsers(readLines(f),parsers,verbose=FALSE,...)
935  }  }

Legend:
Removed from v.200  
changed lines
  Added in v.204

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