[Roxygen-commits] r44 - in pkg: R sandbox

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

Author: pcd
Date: 2008-06-19 05:55:58 +0200 (Thu, 19 Jun 2008)
New Revision: 44

Modified:
   pkg/R/parse.R
   pkg/sandbox/example.R
   pkg/sandbox/main.R
Log:
class, generic, method, signature; back to example.R


Modified: pkg/R/parse.R
===================================================================
--- pkg/R/parse.R	2008-06-19 03:31:18 UTC (rev 43)
+++ pkg/R/parse.R	2008-06-19 03:55:58 UTC (rev 44)
@@ -140,11 +140,11 @@
   list(class=cadr(car(expression)))
 
 parse.setGeneric <- function(expression)
-  list(method=cadr(car(expression)))
+  list(generic=cadr(car(expression)))
 
 parse.setMethod <- function(expression)
   list(method=cadr(car(expression)),
-       class=caddr(car(expression)))
+       signature=caddr(car(expression)))
 
 ## Parser lookup
 

Modified: pkg/sandbox/example.R
===================================================================
--- pkg/sandbox/example.R	2008-06-19 03:31:18 UTC (rev 43)
+++ pkg/sandbox/example.R	2008-06-19 03:55:58 UTC (rev 44)
@@ -4,7 +4,7 @@
 #' @slot birthyear The year of birth
 #' @prototype Prototype person is named John Doe
 #'      and born in the year 1971
-#' @export
+#' @exportClass person
 setClass('person',
          representation=
          representation(fullname='character',
@@ -21,7 +21,7 @@
 #' Name a person, the baptism.
 #'
 #' @param object A Person object
-#' @export
+#' @exportMethod name
 setMethod('name', 'person', function(object) object at fullname)
 
 ## name(new('person', fullname='Jane Roe', birthyear=1776))

Modified: pkg/sandbox/main.R
===================================================================
--- pkg/sandbox/main.R	2008-06-19 03:31:18 UTC (rev 43)
+++ pkg/sandbox/main.R	2008-06-19 03:55:58 UTC (rev 44)
@@ -2,7 +2,7 @@
 source('../R/list.R')
 source('../R/parse.R')
 
-FILE <- 'example-S4-person.R'
+FILE <- 'example.R'
 
 argv <- commandArgs(trailingOnly=T)
 argc <- length(argv)