Gibt es eine Möglichkeit, Listen von Werten aus Listen von Objekten in R zu ziehen?

Question

Ich versuche, eine Unterliste aus einer Liste von Objekten basierend auf dem Wert eines ihrer Elemente zu erstellen. Zum Beispiel erstelle ich eine Objektklasse mit:

setClass("Foo",representation(Attrib = "vector")) 

Dann erstelle ich eine Liste von Objekten dieser Klasse:

CreateData = function() { new("Foo",Attrib=sample(0:1,5,replace=TRUE)) } 
FooSet = CreateData() 
for(i in 1:20) { FooSet=c(FooSet,CreateData()) } 

Jetzt möchte ich eine Teilmenge der Liste erstellen mit dem Satz, in dem die Das erste Element von Attrib ist eins. Im Idealfall würde ich dies tun, indem er sagt:

FooSubset = FooSet[FooSet@Attrib[1] == 1] 

jedoch führt dies zu einem Fehler, wie FooSet [i] eine Liste von einem Objekt ist, anstatt das Objekt selbst; Um das Objekt zu bekommen, müsste ich FooSet [[i]] machen. Gibt es einen einfachen Weg, um den logischen Indexvektor zu bekommen, um das Objektelement in geeigneter Weise zu prüfen, oder eine andere Methode, dies zu tun, die kurz vor einer for-Schleife steht?

Answer 1

Sie können sapply() im Index verwenden. Es ist immer noch eine Schleife, aber Sie haben eine Liste, so dass Sie eine Schleife haben müssen, um Elemente zu greifen.

FooSet[sapply(FooSet, slot, "Attrib")[1, ] == 1] 

oder

FooSet[sapply(FooSet, function(x) x@Attrib[1]) == 1]