等效蟒蛇在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) { ... })