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

可能还可以找到其他示例。