R 从 Function 更新单个向量元素

Question

我对 R 比较陌生，遇到了让我感到困惑的情况。 我正在更新预先初始化的向量中的一些值，并意识到这些值没有更新。 在花了几个小时尝试调试后，我来到了这里。

最小的代码可以总结如下：

incr <- function(v) {
    v[1] = v[1] + 1
}

vec = 0

incr(vec)

为什么我要增加 function？ 我有一个向量用于存储每种类型的自定义类别的计数，并会打开一些因素来判断要增加哪个计数器。 但最终，这段代码是其核心的基本思想。

我期望的行为是vec[1]的值从 0 更改为 1。但是vec[1]在调试器中查看时保持为 0。 这是因为一些 scope 或我没有读过的可变性吗？

Answer 1

您可以使用assign为您选择的环境中的变量名称设置值。 在下面的function中，默认环境是调用者的环境。

incr <- function(x, envir = parent.frame()){
  xname <- deparse(substitute(x))
  x[1] <- x[1] + 1L
  assign(xname, x, envir = envir)
}
a <- 0L
incr(a)
a
#[1] 1
incr(a)
a
#[1] 2