R 中的特殊任务

Question

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

x[3:5] <- 13:15

是一个快捷方式：

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

我不明白的是为什么使用中间符号*tmp*而不是直接使用 setter function 执行此操作的原因。

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*` object，它实际上会产生不同的结果：

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

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