等效蟒蛇在R6類中的R

Question

我想讓我的R6類的對象迭代用在R迴路__iter__的喜歡：

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

其中object是我的類的實例。在python中，我將在我的類上實現__iter__函數。與__len__相同len(object)才能正常工作。有沒有類似的方式來在R中實現這些？

Answer 1

，你可以：

# 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 }) 

，然後遍歷像這樣：

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" 

如果你想要一個更具狀態，您可以使用iterators包和實現迭代函數nextElem方法：

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