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"