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生成器的一个方面,使它们与迭代器不同。 迭代的整个对象列表不是在第一次调用时构建的,然后是迭代的,但是每个函数调用都会创建一个将为该调用返回的元素。

===============>>#1 票数:23 已采纳

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

如果要从可能的列表中进行选择,则可以使用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"

  ask by papirrin translate from so

未解决问题?本站智能推荐: