Các chức năng của máy phát điện trong R

Question

Có cấu trúc gói hoặc ngôn ngữ trong R tạo điều kiện hoặc cung cấp việc thực hiện "Python-like generators" không?

Bằng cách "phát Python-like" Ý tôi là chức năng mà giữ trạng thái giữa các cuộc gọi, trong cú pháp R và vay từ khóa năng suất từ Python sẽ được giống như:

iterable.fun <- function(){ 
    yield list('a','b','c') 
} 

Với năng suất thay vì một trở, sau đó gọi hàm ba lần liên tiếp sẽ cung cấp cho:

> iterable.fun() 
    'a' 
> iterable.fun() 
    'b' 
> iterable.fun() 
    'c' 

Edit: tôi rời ra một như pect của các trình tạo Python làm cho chúng khác với các trình lặp. Đó là toàn bộ danh sách các đối tượng để lặp lại không được xây dựng trên cuộc gọi đầu tiên và sau đó được lặp lại, nhưng mỗi lệnh gọi hàm tạo ra một phần tử sẽ trả về cho cuộc gọi đó.

Answer 1

Gói iterators có chức năng này

library(iterators) 
abc <- iter(c('a','b','c')) 
nextElem(abc) 
## [1] "a" 
nextElem(abc) 
## [1] "b" 
nextElem(abc) 
## [1] "c" 

Hoặc bạn có thể sử dụng lambda.r và <<-. Ví dụ này được sửa đổi từ

http://cartesianfaith.wordpress.com/2013/01/05/infinite-generators-in-r/

có nhiều ví dụ trong bài viết trên blog

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 

lưu ý rằng bạn cũng có thể sử dụng một chức năng thường xuyên để làm điều này.

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 

Nếu bạn muốn chọn từ một danh sách có thể, sau đó bạn có thể làm như vậy có lẽ sử dụng 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"