如何獲得應用功能有副作用？

Question

我希望apply函數調用的函數在全局範圍內有副作用，即影響全局範圍內的變量。這不起作用，你可以看到：

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)被稱爲不幸的測試仍是1rollapply被執行後。有可能解決這個問題嗎？

Answer 1

通常，R不支持在函數範圍外改變變量。原因是爲了減少代碼的相互關聯性。這是一件好事，因爲它可以更容易地推斷某個特定代碼在做什麼，而不必考慮周圍的所有上下文。特別是在較大的程序中，這可能會很難修復錯誤。

然而，使用<<-操作您覆蓋此行爲：

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

然而，如果這種不正常需要和氣餒。

通常情況下，函數並不保持狀態，即一旦函數完成，函數內的所有信息都將被丟棄。看看closures來獲得保持狀態的函數，這可能會解決你的問題（你沒有說明）。