R编程: Use of setMethod to override the 'summary' function for a group of classes

Question

我正在使用 setMethod 来覆盖不同类的对象的“摘要”函数。

最初，我使用了这种方法:

setMethod('summary', "class_1",
           function(object, ...) {
            #code for class_1 summary here...
          }          
)

setMethod('summary', "class_2",
          function(object, ...) {
            #code for class_2 summary here...
          }          
)

setMethod('summary', "class_3",
          function(object, ...) {
            #code for class_3 summary here...
          }          
)

...每个类(class)依此类推。

但是，总共有 12 个不同的类，因此代码变得非常重复。为了避免这种重复，我创建了一个包含类名的函数:

all_classes = function() {
  c("class_1", "class_2", "class_3") #and so on for each class
}

然后我使用了lapply:

lapply(
  1:length(all_classes()),
  function(k)
    setMethod('summary', all_classes()[k],
                function(object, ...) {
                  #code here...
                }
    )
)

这可行，但我想知道是否有更好的方法来实现我的目标，即为每个不同的类紧凑地创建“摘要”函数。

谢谢

约翰。

Answer 1

外观模式在底层主力函数之上实现轻量级方法。通常，每个方法在调用主力函数之前都会进行一些初步处理。在没有初步处理并且您对 setClass 的返回值不感兴趣的简单情况下，使用 for 循环而不是 lapply 是有意义的。所以

.my_summary <- function(object, ...) {}
for (cl in all_classes())
    setMethod(summary, cl, .my_summary)

此外，.my_summary 适用于多个类，这意味着这些类共享公共(public)结构，因此可以排列为类层次结构和在基类上定义的方法。

setClass("A", representation(x="numeric"))
setClass("A1", contains="A")
setClass("A2", contains="A")
setMethod(summary, "A", function(object, ...) {})

在S4中，我们可以使用多重继承来提供一种面向方面的编程

setClass("Summary")
setMethod(summary, "Summary", function(object, ...) {})
setClass("B1", contains=c("A", "Summary"))

B1 然后从 A 继承数据(槽 x)，并从 Summary 继承行为。在这种情况下，方法分派(dispatch)可能会令人困惑(如果 A 和 Summary 都有一个摘要方法，会选择哪个方法？)。