gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-02 11:31:37 25 4
gpt4 key购买 nike

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

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

谢谢

约翰。

最佳答案

外观模式在底层主力函数之上实现轻量级方法。通常,每个方法在调用主力函数之前都会进行一些初步处理。在没有初步处理并且您对 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 都有一个摘要方法,会选择哪个方法?)。

关于R编程: Use of setMethod to override the 'summary' function for a group of classes,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17124463/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com