如何让应用函数产生副作用？答案

【问题标题】：How to get apply functions to have side effects?如何让应用函数产生副作用？
【发布时间】：2016-02-05 23:02:24
【问题描述】：

我希望应用函数调用的函数在全局范围内具有副作用，即影响全局范围内的变量。如您所见，这不起作用：

library(zoo)
test=1
rollapply(1:10, width=2, function(x) test=test+1)
# [1] NA NA NA NA NA NA NA NA NA
test
# 1

我希望每次调用function(x) 时都会增加测试，不幸的是，在执行rollapply 之后测试仍然是1。有没有可能解决这个问题？

【问题讨论】：

【解决方案1】：

通常，R 不支持在函数范围之外更改变量。这样做的原因是减少代码的互连性。这是一件好事，因为它可以更容易地推理特定代码段正在做什么，而不必考虑它周围的所有上下文。尤其是在大型程序中，这可能会产生非常难以修复的错误。

但是，使用 <<- 运算符可以覆盖此行为：

a = 1
spam = function() {
    a <<- a + 1
}
spam()
a
[1] 2

但是，如果通常不需要并且不鼓励这样做。

通常，函数不会保持状态，即一旦函数完成，函数内部的所有信息都会被丢弃。查看closures 以获取保持状态的函数，这可能会解决您的问题（您没有说明）。

【讨论】：