Erstellen spezieller Datenobjekte in r

Question

Für einige Pakete kann ich spezielle Art von Objekten sehen. Zum Beispiel bekomme ich die folgende Nachricht, wenn ich versuche, ein Dataset aus einem Paket zu drucken.

Multitrait

This is an object of class "cross". 
    It is too complex to print, so we provide just this summary. 
    RI strains via selfing 

    No. individuals: 162 

......................and other summary information 

ist (Multitrait)

[1] "riself" 

Ich frage mich, wie wir solches Objekt erstellt werden. Sind sie spezielle Listen von Datenrahmen, Matrix von Vektor.

X <- c("A", "B", "C") 
Y <- data.frame (A = 1:10, B = 21:30, C = 31:40) 
myeq <- c("Y ~ X1 + Y1") 
K <- 100 
A = 1:20 
B = B= 21:40 
J <- as.matrix(A,B) 
myl1 <- list(J, K) 

Jetzt ist mein komplexes Objekt:

mycomplexobject <- list(X, Y, myeq, K, J, myl1) 
mycomplexobject 
str(mycomplexobject) 

List of 6 
$ : chr [1:3] "A" "B" "C" 
$ :'data.frame':  10 obs. of 3 variables: 
    ..$ A: int [1:10] 1 2 3 4 5 6 7 8 9 10 
    ..$ B: int [1:10] 21 22 23 24 25 26 27 28 29 30 
    ..$ C: int [1:10] 31 32 33 34 35 36 37 38 39 40 
$ : chr "Y ~ X1 + Y1" 
$ : num 100 
$ : int [1:20, 1] 1 2 3 4 5 6 7 8 9 10 ... 
$ :List of 2 
    ..$ : int [1:20, 1] 1 2 3 4 5 6 7 8 9 10 ... 
    ..$ : num 100 

ist (mycomplexobject)

[1] "list" "vector" 

Gibt es Art und Weise spezielles Objekt zu machen und wie stattdessen Nachricht Druck ganze Liste zu verhindern " es ist komplex zu drucken "und stattdessen eine Zusammenfassung zu liefern?

Answer 1

Setzen Sie einfach die class Ihres Objekts und stellen Sie eine print Methode zur Verfügung.

class(mycomplexobject) <- c("too_complex", class(mycomplexobject)) 
print.too_complex <- function(x) { 
    cat("Complex object of length", length(x), "\n") 
} 
mycomplexobject