Gibt es ein S4, das unlist() entspricht?

Question

Ich habe etwas Erfahrung mit S4 Objekte und ihre Steckplätze, so dass ich weiß, wie auf bestimmte Steckplätze und Sub-Steckplätze zugreifen. Was ich gerne lernen würde, ist, wie man ein Objekt in der Weise "entschlitzt", wie unlist eine S3 Liste auseinander nimmt.
Mein unmittelbares Ziel ist es, ein S4 Gegenstück zu einem meiner Spielzeug zu haben, die die Anzahl der Elemente eines Objekts zurückgibt:

lssize<-function(items){ 
      if (any(sapply(sapply(items,get),typeof)=='closure')){ 
     warning('Closures in list, will ignore.') 
     items<-items[(sapply(sapply(bar,get),typeof)=='closure')!=TRUE] 
    } 
    sizes<-sapply(sapply(sapply(sapply(items,get,simplify=F), unlist,simplify=F), as.vector,simplify=F), length) 
    return(sizes) 
    } 

(ohne Messe in meinem Code :-) lacht). Ich hoffe, dass ich keine Rekursionsroutine schreiben muss, die Slots nacheinander extrahiert, um sie zu konvertieren.

Edit: Ich weiß object.size wird den Bytecount zurückgeben; Nicht, was ich hier will.

Answer 1

(Dies wird überarbeitet, um näher an einer vorherigen, gelöschten Antwort zu sein, mit slotName und slot anstatt sich auf attributes zu verlassen). Wir könnten eine Funktion schreiben, die prüfen, ob eine Instanz ein S4-Objekt ist, und wenn ja, extrahiert alle Schlitze als Liste und recurses

f = function(x) { 
    if (isS4(x)) { 
     nms <- slotNames(x) 
     names(nms) <- nms 
     lapply(lapply(nms, slot, object=x), f) 
    } else x 
} 

und dann

A = setClass("A", representation(x="numeric")) 
B = setClass("B", representation(a="A", b="numeric")) 
f(B()) 

bei einer einfachen alten Liste zu gelangen die wir für beliebige Zwecke verwenden könnten.

$a 
$a$x 
numeric(0) 

$a$class 
[1] "A" 
attr(,"package") 
[1] ".GlobalEnv" 


$b 
numeric(0) 

$class 
[1] "B" 
attr(,"package") 
[1] ".GlobalEnv" 

f Möglicherweise müssen verbessert werden, beispielsweise NULL-Werte oder S4 Klassen von S3 Klassen über setOldClass gemacht zu handhaben. Der Code zu validObject würde meine Wahl von Orten sein, um nach einer umfassenderen Durchquerung zu suchen.

Eine Verallgemeinerung könnte einen Besucher machen, nach dem Vorbild der

visitLeavesWith <- 
    function(object, FUN, ...) 
{ 
    f = function(x) { 
     if (isS4(x)) { 
      slots <- setNames(slotNames(x), slotNames(x)) 
      lapply(lapply(slots, slot, object=x), f) 
     } else FUN(x, ...) 
    } 
    f(object) 
} 

zB

visitLeavesWith(B(), length)