Bug 15267 - S3 methods lose track of own generic in some cases
Summary: S3 methods lose track of own generic in some cases
Alias: None
Product: R
Classification: Unclassified
Component: Language (show other bugs)
Version: R 3.0.0
Hardware: All All
: P5 normal
Assignee: R-core
Depends on:
Reported: 2013-04-11 15:12 UTC by Peter Dalgaard
Modified: 2013-07-03 19:13 UTC (History)
0 users

See Also:


Note You need to log in before you can comment on or make changes to this bug.
Description Peter Dalgaard 2013-04-11 15:12:26 UTC
This cropped up in the context of namespaces. Package tseries imports zoo, but some methods wouldn't work unless zoo was actually loaded (notably, you could not diff() a "zoo" object). 

The deeper reason, however, seems to be the one displayed by the following minimal example

dd <- Sys.Date()
f <- function () {
    h <- function(x) UseMethod("h")
    h.bar <- function(x) "bar"
    x <- structure(1, class = "bar")

f() ## Error in h(x) : could not find function "h"


The culprit seems to be the way UseMethod goes looking for the generic. It assumes that is is in the scope of R_GlobalContext->sysparent, but in the above case, methods dispatch and lazy evaluation conspire to create a situation where the assumption fails. 

Check src/main/object.c:37--44.
Comment 1 Peter Dalgaard 2013-04-12 12:39:50 UTC

Modifying the example to use

 f <- function () {
    h <- function(x) {s <- sys.status(); print(s) ; UseMethod("h")}

yields the output below. Notice in particular, that the parent of the call to NextMethod is frame 3, the evaluation environment of [.Date. This also ends up as the parent of the call to h(), but h is not in its scope. 

It is tempting to conclude that NextMethod ought to have the same parent as its caller. 



`[.Date`(dd, h(x))




[1] 0 1 1 3 3 5

<environment: 0x7f89045ec388>

<environment: 0x7f8905701498>

<environment: 0x7f89056fdc60>

<environment: 0x7f890570b188>

<environment: 0x7f8905714200>

<environment: 0x7f8905716990>
Comment 2 Peter Dalgaard 2013-07-03 19:13:46 UTC
Looks like r63147 fixes this (in R-devel only for now).