Hi,
although I've done S3 dispatching for more than a decade now, I think
I managed to overlook/avoid the following pitfall when using
NextMethod():
If you explicitly pass argument '...' to NextMethod(), you will
effectively pass those argument twice to the "next" method!
EXAMPLE:
foo0 <- function(...) UseMethod("foo0");
foo1 <- function(...) UseMethod("foo1");
foo2 <- function(...) UseMethod("foo2");
foo2.A <- foo1.A <- foo0.A <- function(object, a=1, b=2, c=3, d=4, ...) {
str(c(list(object=object, a=a, b=b, c=c, d=d), list(...)));
}
## CORRECT: Don't pass arguments '...', but all other
## *named* arguments that you wish to be changed in the call.
foo0.B <- function(object, ..., b=-2) {
NextMethod("foo0", object=object, b=b);
}
## INCORRECT: Passing arguments '...' explicitly will *duplicated* them.
foo1.B <- function(object, ..., b=-2) {
NextMethod("foo1", object=object, ..., b=b);
}
## INCORRECT: As an illustration, *triplication* of arguments '...'.
foo2.B <- function(object, ..., b=-2) {
NextMethod("foo2", object=object, ..., ..., b=b);
}
objB <- structure(NA, class=c("B", "A"));
foo0(objB, "???", "!!!");
## Gives:
## List of 5
## $ object:Classes 'B', 'A' logi NA
## $ a : chr "???"
## $ b : num -2
## $ c : chr "!!!"
## $ d : num 4
foo1(objB, "???", "!!!");
## Gives:
## List of 6
## $ object:Classes 'B', 'A' logi NA
## $ a : chr "???"
## $ b : num -2
## $ c : chr "!!!"
## $ d : chr "???"
## $ : chr "!!!"
foo2(objB, "???", "!!!");
## Gives:
## List of 8
## $ object:Classes 'B', 'A' logi NA
## $ a : chr "???"
## $ b : num -2
## $ c : chr "!!!"
## $ d : chr "???"
## $ : chr "!!!"
## $ : chr "???"
## $ : chr "!!!"
This behavior does not seem to be documented (at least not
explicitly), cf. help("NextMethod", package="base") and Section
'NextMethod' in 'R Language Definition'. I don't have the 'White
Book', so I don't know what that is saying about this.
I can reproduce this on Windows, OSX and Linux and various versions of
R, e.g. R v2.10.0, R v2.15.1 patched, R devel.
Is this a bug, should it be detected as a user error, should it be
documented, or is this already old news?
Thanks,
Henrik
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
