search for: mustfind

...neric(genName, impenv) The definition of getGeneric is in methods/R/RMethodUtils.R starts with: getGeneric <- ## return the definition of the function named f as a generic. ## ## If there is no definition, throws an error or returns ## NULL according to the value of mustFind. function(f, mustFind = FALSE, where = .genEnv(f, topenv(parent.frame()), package), package = "") I think the call to getGeneric in namespaceImportFrom should use named arguments because impenv, an environment, will be assigned to the mustFind arg which is most likel...

Doing it like this: genericForPrimitive <- function(f, where = topenv(parent.frame()), mustFind = TRUE) { ans = .BasicFunsList[[f]] ## this element may not exist (yet, during loading), dom't test null if(mustFind && identical(ans, FALSE)) stop(gettextf("methods may not be defined for primitive function %s in this version of R",...

...is.null(ans). So no error is thrown: > methods:::genericForPrimitive("foo") NULL Will fix. On Wed, Jan 21, 2015 at 3:13 PM, Peter Haverty <haverty.peter at gene.com> wrote: > Doing it like this: > > genericForPrimitive <- function(f, where = topenv(parent.frame()), mustFind > = TRUE) { > > ans = .BasicFunsList[[f]] > > ## this element may not exist (yet, during loading), dom't test null > > if(mustFind && identical(ans, FALSE)) > > stop(gettextf("methods may not be defined for primitive function %s > i...

Hi all, The function call series genericForPrimitive -> .findBasicFuns -> .findAll happens 4400 times while the GenomicRanges package is loading. Each time .findAll follows a chain of environments to determine that the methods namespace is the only one that holds a variable called .BasicFunsList. This accounts for ~10% of package loading time. I'm sure there is some history to that

...ntical(theFile, "")) scan(what="", sep="\n", theFile) else stop("Cannot find file \"DESCRIPTION\" in package \"base\"") but that would be pretty ugly in a help file. What do you think of adding an argument mustExist=FALSE or mustFind=FALSE to system.file() such that if it is TRUE and no file is found then system.file throws an error? Then my example could be scan(what="", sep="\n", system.file("DESCRIPTION", mustExist=TRUE)) and it would throw an informative error message instead of returning &...

...s/R/RClassUtils.R =================================================================== --- src/library/methods/R/RClassUtils.R (revision 87194) +++ src/library/methods/R/RClassUtils.R (working copy) @@ -1812,6 +1812,9 @@ ## real version of .requirePackage ..requirePackage <- function(package, mustFind = TRUE) { + # we may be called from .findInheritedMethods, which disables S4 primitive dispatch + primMethods <- .allowPrimitiveMethods(TRUE) + on.exit(.allowPrimitiveMethods(primMethods)) value <- package if(nzchar(package)) { ## lookup as lightning fast as possib...

...========================================== > --- src/library/methods/R/RClassUtils.R (revision 87194) > +++ src/library/methods/R/RClassUtils.R (working copy) > @@ -1812,6 +1812,9 @@ > ## real version of .requirePackage > ..requirePackage <- function(package, mustFind = TRUE) { > + # we may be called from .findInheritedMethods, which disables S4 primitive dispatch > + primMethods <- .allowPrimitiveMethods(TRUE) > + on.exit(.allowPrimitiveMethods(primMethods)) > value <- package > if(nzchar(package)) { > ##...

...(get(g, envir = ns), "genericFunction")) { allVars <- c(allVars, g) + generics <- c(generics, g) + packages <- c(packages, p) + } else { # should be primitive fun <- methods::getFunction(g, mustFind = FALSE, where = self) if(is.primitive(fun) || methods::is(fun, "genericFunction")) {} @@ -970,7 +979,7 @@ } } } - namespaceImportFrom(self, asNamespace(ns), allVars, allFuns, packages) + namespaceImportFrom(self, asNamespace(ns), allVars,...

Hey everyone, I would like to develop a package using S4 classes. I have to define several S4 classes that inherits from each others as follow: # A <- B <- C <- D I also would like to define .DollarNames methods for these class so, if I have understood well, I also have to define an old class as follow: # AOld <- A <- B <- C <- D setOldClass(Classes = "AOld")