The R Project SVN – R – Diff – /trunk/src/library/methods/man/NextMethod.Rd

 % File src/library/methods/man/NextMethod.Rd
 % Part of the R package, http://www.R-project.org
-% Copyright 1995-2007 R Core Development Team
+% Copyright 1995-2011 R Core Development Team
 % Distributed under GPL 2 or later
 \name{callNextMethod}
 \alias{callNextMethod}
 \title{Call an Inherited Method}
  \emph{Software for Data Analysis: Programming with R}
   Springer.  (For the R version.)
  Chambers, John M. (1998)
  \emph{Programming with Data}
  Springer (For the original S4 version.)
+}
+\seealso{\code{\link{callGeneric}} to call the generic function with the
+ current dispatch rules (typically for a group generic function);
+ \link{Methods} for the general behavior of method dispatch.
+}
-\seealso{\code{\link{callGeneric}} to call the generic function with the current
-  dispatch rules (typically for a group generic function); \link{Methods} for the general behavior of method dispatch}
 \examples{
 ## some class definitions with simple inheritance
 setClass("B0" , representation(b0 = "numeric"))
 stopifnot(identical(f(b2), c(b2@b2, paste(b2@b1,":"), b2@b0^2, "B2")))
 f(b1)
 ## a sneakier method: the *changed* x is used:
+setMethod("f", "B2",
-setMethod("f", "B2", function(x) {x@b0 <- 111; c(x@b2, callNextMethod())})
+          function(x) {x@b0 <- 111; c(x@b2, callNextMethod())})
 f(b2)
 stopifnot(identical(f(b2), c(b2@b2, paste(b2@b1,":"), 111^2, "B2")))
 \dontshow{
 ## a version of the example with 1 more layer of nesting
 stopifnot(identical(mm2[,2], 4:6))
 setClass("m3", representation(rowtags = "character"),contains = "m2")
-setMethod("[", signature(x="m3", i = "character", j = "missing", drop = "missing"),
+setMethod("[", signature(x="m3", i = "character", j = "missing",
+                         drop = "missing"),
           function(x, i,j, ..., drop) {
               xx <- callNextMethod(x, match(i, x@rowtags),)
               x@.Data <- xx
               x@rowtags <- x@rowtags[match(i, x@rowtags)]
               x})
-tm = matrix(1:12, 4, 3)
+tm <- matrix(1:12, 4, 3)
-mm3 = new("m3", tm, rowtags = letters[1:4])
+mm3 <- new("m3", tm, rowtags = letters[1:4])
-mmm = mm3[c("b", "d")]
+mmm <- mm3[c("b", "d")]
+stopifnot(identical(mmm,
-stopifnot(identical(mmm, new("m3", tm[c(2, 4),], rowtags = c("b", "d"))))
+      new("m3", tm[c(2, 4),], rowtags = c("b", "d"))))
 removeClass("m3")
 removeClass("m2")
 removeClass("m1")
 removeMethods("[")
+}
+}
 \keyword{programming}
 \keyword{classes}

The R Project SVN R

(root)/trunk/src/library/methods/man/NextMethod.Rd @ 63243 – Rev 56186 → 56211