ReferenceClass的` `print`‘方法

Question

我有：

MyClass <- setRefClass("MyClass“，field=list(data=”数值“))

让我们初始化MyClass的一个对象

OBJ <- MyClass(data=1:4)

..。并在屏幕上打印：

OBJ

Reference class object of class "MyClass"
Field "data":
[1] 1 2 3 4

我想改变它的打印方式，所以我写了这样的方法：

print.MyClass <-函数(X){cat(“这是打印的表示：") print(x$data) }

现在起作用了：

印刷(OBJ)

This is printed representation: [1] 1 2 3 4

这并不是：

OBJ

有没有办法只输入OBJ来实现我的打印方法？

我也尝试过show，或者(OBJ)，但是没有爱我。

Answer 1

可以将show方法添加到引用类中，如?setRefClass中详细介绍的那样。作为一个例子

MyClass <- setRefClass("MyClass" , fields = list(data="numeric"))

MyClass$methods(show = function(){print("This is printed representation: ")
                                  print(data)})

OBJ <- MyClass(data=1:4)

> OBJ
[1] "This is printed representation: "
[1] 1 2 3 4