6

我正在使用 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...
          }          
)

...等每个班级。

但是，总共有 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...
                }
    )
)

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

谢谢，

约翰。

4

1 回答 1

6

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

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

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

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 继承行为。在这种情况下，方法分派可能会让人感到困惑（如果 A 和 Summary 都具有汇总方法，则选择哪种方法？）。

于 2013-06-15T14:36:36.930 回答