[Roxygen-commits] r217 - pkg/R

[noreply at r-forge.r-project.org]

Author: pcd
Date: 2009-01-29 19:43:27 +0100 (Thu, 29 Jan 2009)
New Revision: 217

Modified:
   pkg/R/Rd.R
Log:
createRd moved from trunk


Modified: pkg/R/Rd.R
===================================================================
--- pkg/R/Rd.R	2009-01-29 18:39:59 UTC (rev 216)
+++ pkg/R/Rd.R	2009-01-29 18:43:27 UTC (rev 217)
@@ -5,9 +5,6 @@
 #' @include parse.R
 roxygen()
 
-register.preref.parsers(parse.default,
-                        'noRd')
-
 register.preref.parsers(parse.value,
                         'name',
                         'aliases',
@@ -157,8 +154,7 @@
 #' @export
 #' @aliases name aliases title usage references concept
 #' note seealso example examples keywords return author
-#' TODO param method setClass setGeneric setMethod
-#' TODO exportOnly parameter to handle createRd
+#' @TODO param method setClass setGeneric setMethod
 #' make.Rd.roclet
 make.Rd.roclet <- function(subdir=NULL,
                            verbose=TRUE) {
@@ -181,12 +177,9 @@
   #' @param key the expression's key
   #' @param \dots the arguments
   #' @return \code{NULL}
-  parse.expression <- function(key, ...) {
-    if ( createRd )
-      cat(Rd.expression(key, c(...)), file=filename, append=TRUE)
-  }
+  parse.expression <- function(key, ...)
+    cat(Rd.expression(key, c(...)), file=filename, append=TRUE)
 
-  createRd <- FALSE
   filename <- ''
 
   reset.filename <- function()
@@ -258,9 +251,6 @@
   #' @param partitum the pre-parsed elements
   #' @return \code{NULL}
   parse.name <- function(partitum) {
-    if ( !createRd )
-      return;
-    
     name <- guess.name(partitum)
     if (is.null(name) && !is.null(subdir)) {
       filename <- partitum$srcref$filename
@@ -346,10 +336,6 @@
   #' @param partitum the pre-parsed elements
   #' @return \code{NULL}
   pre.parse <- function(partitum) {
-    #' Create Rd files of exported functions only.
-    if ( is.null(partitum$noRd) & !is.null(partitum$export) )
-      createRd <<- TRUE
-    
     assign.parent('params', NULL, environment())
     assign.parent('examples', NULL, environment())
     parse.name(partitum)
@@ -366,7 +352,6 @@
     ## if not, it will destroy the sink stack.
     ## (Should fail if unwritable, anyway.)
     reset.filename()
-    createRd <<- FALSE
   }
 
   roclet <- make.roclet(parse.expression,