长度（类）> 1的对象的方法

Question

This question 建议使用methods(class=class(obj)) 提取对象可用的方法列表。

如果在length(class(obj))>1 所在的对象上使用，这会导致很多警告，例如

set.seed(101)
a <- matrix(rnorm(20), nrow = 10)
b <- a + rnorm(length(a))
obj <- lm(b ~ a)

将class(obj) 设为c("lm","mlm")； methods(class=class(obj))给了

(很多次) 1，并且只使用第一个元素
gsub(name, "", S3reg) 中的警告： 参数“模式”的长度 > 1，并且只使用第一个元素
sub(paste0("\.", class, "$"), "", row.names(info)) 中的警告： 参数 'pattern' 的长度 > 1，并且只使用第一个元素

接着是结果。

似乎 (?) 将 methods(class=...) 应用于 class(obj) 的 last 元素会起作用，但我对替代方案或讨论为什么会（或不是）感兴趣正确...

为了澄清，我希望返回的值是一个（最好是唯一的）字符向量，这样我就可以使用 if ("foo" %in% allmethods(obj)) 之类的东西来测试对象指定方法的可用性...

Answer 1

这就是你要找的吗？

sapply(class(obj), function(x) methods(class = x))

请注意，下面的代码会出错，因为参数 generic.function 变为 mlm。它必须是参数class，如上。

sapply(class(obj), methods)
Error in .S3methods(generic.function, class, parent.frame()) : 
  no function 'mlm' is visible