7

抱歉，如果在这里遗漏了一些明显的东西......有没有办法提前查看当前环境中当前存在哪些 S3 泛型方法（例如<environment: R_GlobalEnv>。所有当前泛型方法的列表都R可以，但我似乎找不到一。

我问的原因是我methods为 a定义了class一些，其中一些已经是通用的 S3 方法，所以我想提前知道，而不必手动检查每个方法。

例如：

isGeneric("mean")
>TRUE

isGeneric("quantile")
>FALSE

目前我最接近的是：

ls(,all.names=TRUE)[sapply(ls(, all.names=TRUE), FUN=isGeneric)]

如果我已经定义了一个方法（但没有给出其他潜在的通用方法）并且当我在新R会话中将它作为第一个命令给出时给出以下错误，则该方法有效：

  invalid subscript type 'list'
4

2 回答 2

12

我怀疑在全局环境中会找到许多通用方法，它们更有可能在package的环境中。

修改帮助中的示例?Filter（其中列出了基本包环境中的所有功能）如下我们可以使用过滤isGeneric：

Filter(isGeneric,ls(all.names=TRUE, env = baseenv()))
## [1] "-"             "!="            "$"             "$<-"           "%%"            "%/%"           "&"             "*"            
## [9] "/"             "["             "[["            "[[<-"          "[<-"           "^"             "|"             "+"            
## [17] "<"             "<="            "=="            ">"             ">="            "abs"           "acos"          "acosh"        
## [25] "all"           "any"           "anyDuplicated" "as.character"  "as.data.frame" "as.difftime"   "as.double"     "as.numeric"   
## [33] "as.real"       "asin"          "asinh"         "atan"          "atanh"         "body<-"        "c"             "ceiling"      
## [41] "close"         "cos"           "cosh"          "cummax"        "cummin"        "cumprod"       "cumsum"        "digamma"      
## [49] "dim"           "dim<-"         "duplicated"    "exp"           "expm1"         "floor"         "format"        "gamma"        
## [57] "intersect"     "kronecker"     "length"        "lgamma"        "log"           "log10"         "log1p"         "log2"         
## [65] "max"           "min"           "names"         "print"         "prod"          "range"         "rep"           "rev"          
##  [73] "round"         "setdiff"       "sign"          "signif"        "sin"           "sinh"          "sort"          "sqrt"         
##  [81] "sum"           "summary"       "tan"           "tanh"          "trigamma"      "trunc"         "union"         "unique"

如果您需要查找函数来自哪个包，请使用：

find('function')

根据您的评论：要在搜索路径上搜索所有包以查找通用函数，请使用以下命令：

Filter(length,sapply(search(), function(x) {
  Filter(isGeneric,ls(all.names=TRUE,env = as.environment(x)))
    } ))

请注意，这包含在另一个Filter语句中（以删除 where 元素 length==0）。

.knownS3Generics包环境中的内部对象base也很有用。

于 2013-04-04T05:31:58.080 回答
2

这是另一种方法，utils::isS3stdGeneric优先使用methods::isGeneric.

我使用以下内容来获取base包中的功能：

objs1 <- mget(ls("package:base"), inherits=TRUE)
funs1 <- Filter(is.function, objs)

现在删除那些 body 为 null 的（原语，如sum）或符号（dontCheck(x)，force(x)并且identity(x)都简单地 return x）：

genFuns0 <- sapply(
  funs1,
  function(X) {
    if (!is.null(body(X)) & !is.symbol(body(X))) {
      utils::isS3stdGeneric(X)
    }
  },
  simplify=FALSE
)

然后

head(genFuns <- names(Filter(isTRUE, genFuns0)))

给

[1] "all.equal"     "anyDuplicated" "aperm"         "as.array"     
[5] "as.Date"       "as.expression"

R 版本 3.6.3 (2020-02-29)

于 2018-10-27T01:40:37.140 回答