在R中的R6类中等效于python的__iter__

Question

我希望使用R中的for循环使我的R6类的对象可迭代：

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) { ... })