R 中是否有一个包或语言结构可以促进或提供“类 Python 生成器”的实现？
“类似 Python 的生成器”是指在调用之间保持状态的函数，在 R 语法中并从 Python 借用关键字yield将类似于：
iterable.fun <- function(){
yield list('a','b','c')
}
使用yield而不是return，然后连续三次调用该函数将给出：
> iterable.fun()
'a'
> iterable.fun()
'b'
> iterable.fun()
'c'
编辑：我遗漏了 Python 生成器的一个方面，它使它们与迭代器不同。这是要迭代的整个对象列表不是建立在第一次调用然后迭代的，而是每个函数调用创建一个将为该调用返回的元素。
该iterators软件包具有此功能
library(iterators)
abc <- iter(c('a','b','c'))
nextElem(abc)
## [1] "a"
nextElem(abc)
## [1] "b"
nextElem(abc)
## [1] "c"
或者你可以使用lambda.rand <<-。此示例修改自
http://cartesianfaith.wordpress.com/2013/01/05/infinite-generators-in-r/
博文中有更多示例
library(lambda.r)
seq.gen(start) %as% {
value <- start - 1L
function() {
value <<- value + 1L
return(value)
}
}
foo <- seq.gen(1)
foo()
## [1] 1
foo()
## [1] 2
foo()
## [1] 3
请注意，您也可以使用常规函数来执行此操作。
seq.gen <-function(start) {
value <- start - 1L
function() {
value <<- value + 1L
return(value)
}
}
foo2 <- seq.gen(1)
foo2()
## [1] 1
foo2()
## [1] 2
foo2()
## [1] 3
如果您想从可能的列表中进行选择，那么您也许可以使用switch
seq.char(start) %as% {
value <- start - 1L
function() {
value <<- value + 1L
return(switch(value,'a','b','c'))
}
}
foo.char <- seq.char(1)
foo.char()
## [1] "a"
foo.char()
## [1] "b"
foo.char()
## [1] "c"
该团队最近的一个coro包（协程）r-lib提供了生成器、迭代器和自适应生成器。生成器的行为与预期的完全一样（文档中的复制粘贴示例）：
library(coro)
generate_abc <- generator(function() {
for (x in letters[1:3]) {
yield(x)
}
})
# Create the iterator
abc <- generate_abc()
# Use the iterator by invoking it
abc()
#> [1] "a"
abc()
#> [1] "b"
# Last value
abc()
#> [1] "c"
# Exhaustion sentinel
abc()
#> exhausted
abc()
#> exhausted