r - 如何在 R6 对象中调度 summary() 方法

Question

我正在使用 R6 构建一个对象，该对象的字段包括数据框和其他信息。
我定义了第一种方法$print()我可以称之为 obj1$print()或 print(obj1)两种方式都很好。

> obj1$print()
test object name: AA
> print(obj1)
test object name: AA

我定义了第二种方法 $summary() ，这是一个与 $print() 相同的通用函数: 在这种情况下调用 obj1$summary()按预期工作:

> obj1$summary()
test object name: AA
     alpha               beta  
 Min.   :-1.63751   a      :1  
 1st Qu.:-0.38065   b      :1  
 Median :-0.05854   c      :1  
 Mean   :-0.01360   d      :1  
 3rd Qu.: 0.46194   e      :1  
 Max.   : 1.34755   f      :1  
                    (Other):4 

但是 summary(obj1)返回错误:

Error in object[[i]] : wrong arguments for subsetting an environment

示例代码如下:

testobj <- R6::R6Class(classname = "testobj",
                       public = list(
                         name = NULL,
                         data = NULL,
                         initialize = function(name, data) {
                           self$name <- name
                           self$data <- data
                         },
                         print = function(...) {
                           cat("test object name: ", self$name, "\n", sep = "")
                           invisible(self)
                         },
                         summary = function() {
                           cat("test object name: ", self$name, "\n", sep = "")
                           summary(self$data)
                           }
                         )
                       )

obj1 <- testobj$new(name = "AA",
                   data = data.frame(alpha = rnorm(10),
                                     beta = letters[1:10]))

我的理解是，在一个对象中，您可以定义与泛型函数同名的方法，并且这些方法会根据对象的类自动分派(dispatch)给函数，就像 $print() 一样。 .这不正确吗？
为什么相同的方法不适用于 $summary() ?我该如何解决？

非常感谢您的帮助。

Answer 1

您正在寻找的 S3 方法与 R6 方法不同。一方面，它们不是对象的一部分。

为您的类(class)创建一个 S3 方法:

summary.testobj <- function(obj) {
    obj$summary()
}

summary(obj1)