R中的静态变量

以下是一种使用闭包(在编程语言意义上)的方法,即将count变量存储在一个封闭环境中,该环境只能由函数访问:

make.f <- function() {
    count <- 0
    f <- function(x) {
        count <<- count + 1
        return( list(mean=mean(x), count=count) )
    }
    return( f )
}

f1 <- make.f()
result <- f1(1:10)
print(result$count, result$mean)
result <- f1(1:10)
print(result$count, result$mean)

f2 <- make.f()
result <- f2(1:10)
print(result$count, result$mean)
result <- f2(1:10)
print(result$count, result$mean)

这是另一种方法。这一个需要较少的打字和(在我看来)更易读:

f <- function(x) {
    y <- attr(f, "sum")
    if (is.null(y)) {
        y <- 0
    }
    y <- x + y
    attr(f, "sum") <<- y
    return(y)
}

这个片段以及更复杂的概念示例 in this R-Bloggers article