R等價於Matlab的“持久”

Question

說我有一個matlab函數：

function y = myfunc(x)
    persistent a
    a = x*10
    ...

對於persistent a語句， R的等效語句是什么？ <<-或assign() ？

Answer 1

這是一種方法：

f <- local({ x<-NULL; function(y) {
   if (is.null(x)) { # or perhaps !missing(y)
      x <<- y+1
   }

   x
}})

f(3) # First time, x gets assigned
#[1] 4
f()  # Second time, old value is used
#[1] 4

發生的情況是local圍繞x<-NULL和函數聲明創建了一個新環境。 因此，在函數內部，它可以到達x變量並使用<<-分配給它。

您可以找到以下函數的環境：

e <- environment(f)
ls(e) # "x"