Displaying 4 results from an estimated 4 matches for "genericargsenv".
2010 May 05
1
testInstalledBasic question
...t;,
+ ".Internal", ".Primitive", "^", "|", "%*%", "rep", "seq.int",
+ ## these may not be enabled
+ "tracemem", "retracemem", "untracemem")
>
> for(f in ls(.GenericArgsEnv, all.names=TRUE)[-(1:15)])
+ {
+ if (f %in% except) next
+ g <- get(f, envir = .GenericArgsEnv)
+ an <- names(formals(args(g)))
+ if(length(an) >0 && an[1] == "...") next
+ an <- an[an != "..."]
+ a <- rep(list(NULL), length(an))
+...
2009 Oct 02
1
environment( seq.int ) is NULL
... and also all objects that actually live in the .GenericArgsEnv
environment.
> all( sapply( ls( .GenericArgsEnv ), function(.)
is.null(environment(.)) ) )
[1] TRUE
This has the consequence preventing argsAnywhere to get the args of
seq.int.
> argsAnywhere( seq.int )
Error in exists(".packageName", envir = envir, inherits = FALSE) :
us...
2011 Jun 29
0
Error in testInstalledBasic
...rt()' for an HTML browser interface to help.
Type 'q()' to quit R.
> ## check that the 'internal generics' are indeed generic.
>
> x <- structure(pi, class="testit")
> xx <- structure("OK", class="testOK")
>
> for(f in ls(.GenericArgsEnv, all.names=TRUE))
+ {
+ cat("testing S3 generic '", f, "'\n", sep="")
+ method <- paste(f, "testit", sep=".")
+ if(f %in% "seq.int") {
+ ## note that this dispatches on 'seq'.
+ assign("s...
2011 Jun 30
0
help with interpreting what nnet() output gives:
...rt()' for an HTML browser interface to help.
Type 'q()' to quit R.
> ## check that the 'internal generics' are indeed generic.
>
> x <- structure(pi, class="testit")
> xx <- structure("OK", class="testOK")
>
> for(f in ls(.GenericArgsEnv, all.names=TRUE))
+ {
+ cat("testing S3 generic '", f, "'\n", sep="")
+ method <- paste(f, "testit", sep=".")
+ if(f %in% "seq.int") {
+ ## note that this dispatches on 'seq'.
+ assign("s...