Python3.x R中的生成器函数

发布于04月16日

R中是否有一个包或语言 struct ，可以促进或提供"Python-like generators"的实现？

我所说的"类Python生成器"是指在调用之间保持状态的函数，在R语法中，borrow 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.r和<<-.这个例子是从

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

如果你想从一个可能的列表中进行 Select ，那么你可以使用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"