R 中的特殊任务

Question

我的问题只是为了了解 R 语言的一项功能是如何工作的。在任何好的 R 版本附带的“R 语言定义”中，有一些内容解释了例如向量元素的设置如何与看起来像赋值但并不那么简单的东西一起工作：

x[3:5] <- 13:15

是一个快捷方式：

`*tmp*` <- x
x <- "[<-"(`*tmp*`, 3:5, value=13:15)
rm(`*tmp*`)

我不明白的是为什么使用中间符号*tmp*而不是直接用 setter 函数来做这件事的原因。

x <- "[<-"(x, 3:5, value=13:15)

到现在为止，我一直怀疑它与垃圾收集有关，但由于这个随着 v4 发生了显着变化，而且文档没有改变，我现在怀疑我错了。有人可以解释一下吗？

谢谢

Answer 1

好的，首先让我们证明这个描述是非常字面的：`*tmp*`实际上是创建的。

`*tmp*` <- NULL
lockBinding("*tmp*", .GlobalEnv)
x[3:5] <- 13:15
#Error: cannot change value of locked binding for '*tmp*'
unlockBinding("*tmp*", .GlobalEnv)

现在，语言定义解释了该机制非常通用，也用于更复杂的分配。这是一个示例，如果不使用`*tmp*`对象，实际上会创建不同的结果：

x <- 1:10
local({
  x <- 11:20
  x[3:5] <<- 13:15
})
x
#[1]  1  2 13 14 15  6  7  8  9 10

x <- 1:10
local({
  x <- 11:20
  x <<- `[<-`(x, 3:5, value=13:15)
})
x
# [1] 11 12 13 14 15 16 17 18 19 20

x <- 1:10
local({
  x <- 11:20
  `*tmp*` <- get("x", envir=parent.env(environment()), inherits=TRUE)
  x <<- `[<-`(`*tmp*`, 3:5, value=13:15)
  rm(`*tmp*`)
})
x
# [1]  1  2 13 14 15  6  7  8  9 10

或许还可以找到其他例子。