Displaying 1 result from an estimated 1 matches for "gpdef".
Did you mean:
pdef
2014 Nov 25
0
problem with setGroupGeneric from package methods
...vironment(generic)
if(initialize || !exists(".SigLength", envir = env, inherits = FALSE)) {
nsig <- 1
## check that groups of generics agree on .SigLength; otherwise
## labels won't match
for(gp in generic at group) { ### !!!
gpDef <- getGeneric(gp)
if(is(gpDef, "genericFunction")) {
.getMethodsTable(gpDef) # force initialization
nsig <- max(nsig, get(".SigLength", envir = environment(gpDef)))
}
}
assign(".SigLength", n...