Äquivalent von __iter__ der Python in R6 Klassen in R

Question

Ich möchte mit einem Gegenstand meiner R6 Klasse machen iterable in R for-Schleife wie:

for (element in object) { 
    print(element) 
} 

wo object eine Instanz meiner Klasse ist. In Python würde ich die __iter__ Funktion in meiner Klasse implementieren. Gleiches mit __len__ für len(object), um richtig zu arbeiten. Gibt es eine analoge Möglichkeit, diese in R zu implementieren?

Answer 1

Sie könnten:

# create your refclass 
bar <- setRefClass("foo", fields = list(name="character",len = "numeric")) 
# set generics for `[` and `length` 
setMethod("[", c("foo","numeric"), function(x, i,drop) { sprintf("%s:%s",x$name,i) }) 
setMethod("length", c("foo"), function(x) { x$len }) 

und dann iterieren wie so:

one <- bar$new(name="hi",len = 5) 
for(i in seq_along(one)) cat(one[i],"\n") 

#> "hi:1" 
#> "hi:2" 
#> "hi:3" 
#> "hi:4" 
#> "hi:5" 

Wenn Sie eine Stateful wollen, können Sie die iterators Pakete verwenden könnten und implementieren eine Iterator Funktion nextElem Methode:

setMethod("nextElem", c("foo"), function(obj) { ... })