`print` Methode für ReferenceClass

Ich habe:

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

Initialisieren wir ein Objekt vonMyClass:

OBJ <- MyClass (Daten = 1: 4)

... und auf dem Bildschirm ausdrucken:

OBJ

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

Ich möchte die Art und Weise, wie es gedruckt wird, ändern, so dass ich diese Methode schrieb:

print.MyClass <- function (x) {cat ("Dies ist die gedruckte Darstellung:") print (x $ data)}

Das funktioniert jetzt:

print (OBJ)

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

das tut nicht:

OBJ

Gibt es eine Möglichkeit, meine Druckmethode mit nur der Eingabe zu implementierenOBJ?

Ich habe es auch versuchtshow, oder(OBJ), aber keine Liebe für mich.