R 相当于 Matlab 的“持久”

Question

假设我有一个matlab 函数：

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

R 中与 persistent a 语句的等效语句是什么？ <<- 或 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"