如何处理 R 中的未知方法/泛型

Question

许多语言都有处理未知方法的特殊方法 (examples)。我最熟悉的是 Python 的__getattr__。如果有人调用了您尚未为该类定义的方法，__getattr__ 将充当包罗万象的角色并执行某事。

我一直在阅读 S4 和 R6 的一些内容，但我还没有找到如何在 R 中做到这一点。有可能吗？

Answer 1

没有像在 python 中那样从类定义中执行此操作的标准方法。

在 python 中你会做类似MyObject.my_method() 的事情，而在 R 中使用 S3 或 S4 这将是 my_method(MyObject) 所以它看起来完全像 my_function(MyObject)。唯一的区别是，您调用的函数将调用分派给适当的方法。为多个类定义这些方法如下：

mean <- function (x, ...) UseMethod("mean", x)
mean.numeric <- function(x, ...) sum(x) / length(x)
mean.data.frame <- function(x, ...) sapply(x, mean, ...)
mean.matrix <- function(x, ...) apply(x, 2, mean)
mean.default <- function(x, ...) {
  # do something
}

但是，如果你在一个没有定义方法的类上调用 mean 函数，则由函数来处理，而不是类。

然后你有 RC 和 S6 对象，它们具有更类似于 python 的语法 (MyObject$my_method())，但是它们只会抛出一个错误，即你的类没有对应的字段或方法用过。

Error in envRefInferField(x, what, getClass(class(x)), selfEnv) : 
  "my_method" is not a valid field or method name for reference class “MyObject”

Here some infos about OO-programing in R.

Answer 2

Winston Chang 在这里提供了很好的信息：
https://github.com/r-lib/R6/issues/189#issuecomment-506405998

他解释了如何为您的类创建一个 S3 泛型函数 $ 以捕获未知方法。阅读他的完整回复以了解更多详细信息，但关键功能如下（Counter 是类的名称）。

`$.Counter` <- function(x, name) {
  if (name %in% names(x)) {
    .subset2(x, name)
  } else {
    function(...) {
      .subset2(x, "do")(name, ...)
    }
  }
}

“如果 name 在类中，请执行此操作。如果没有，请将 name（和任何参数）发送到类中定义的名为 do() 的函数。”

虽然我已将此标记为答案（因为它解决了问题），但jkd 仍然正确：

没有像在 python 中那样从类定义中执行此操作的标准方法。