增加值它被稱爲

Question

我有一個函數說，

inc <- function(t) { 
     f <- 1 
     t + f 
} 

所以，在第一次函數inc被調用，f將1，但下一次它得到叫f值應2當函數inc被稱爲第3次f值應該是3等等...

我怎麼做，在R'

Answer 1

我通常使用這個。我不知道這是否是一個把戲或黑客：

getF <- function(){ 
    x <- 1 
    function(t){ 
     x <<- t + x 
    } 
} 

f <- getF() 

f是一個函數（的getF的返回值），它的封閉環境不是地球環境，但其中f定義環境。看看environment(f)。 <<-將x分配到該環境中：請參見ls(environment(f))和get("x", environment(f))。

print(f(3))#4 
print(f(4))#8 

Answer 2

這可能是比較容易理解，但在工作區作爲一個副作用創建一個環境：

inc <- function(t) { 
    if (!exists("e")) { 
    e <<- new.env() 
    e$x <- 1 
    } 

    e$x <- e$x + t 
    e$x 
} 

inc(2) 
#[1] 3 
inc(2) 
#[1] 5