r - ReferenceClass の `print` メソッド

Question

私は持っている：

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

のオブジェクトを初期化しましょうMyClass:

OBJ <- MyClass(データ=1:4)

...そして画面に印刷します：

オブジェクト

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

印刷方法を変更したいので、この方法を書きました：

print.MyClass <- function(x) { cat("これは印刷表現です: ") print(x$data) }

これで動作します：

印刷(OBJ)

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

これはしません:

オブジェクト

入力するだけで印刷メソッドを実装する方法はありますOBJか?

show、またはも試し(OBJ)ましたが、私への愛はありません。