在名称<-()内创建对象会出错。怎么解释呢？

Question

这

x <- list(12, 13)
names(y <- x) <- c("a", "b")

给出了错误：

Error in names(y <- x) <- c("a", "b") : object 'y' not found

任何人都可以解释为什么吗？

根据 R 的求值规则，y <- x 应该在 name<- 的父框架内求值。所以 y 应该在全局环境中创建。

谢谢。

[update] 如果对象 y 已经存在于全局环境中，则错误为：

Error in names(y <- x) <- c("a", "b") : could not find function "<-<-"

[update2] 这是我今天遇到的另一个构造。

(X <- matrix(0, nrow = 10, ncol = 10))[1:3] <- 3:5
Error during wrapup: object 'X' not found

Answer 1

这与 <- 递归地转换 LHS 的方式有关，将 "<-" 附加到函数名称以获取替换形式。第一个参数经过特殊处理。请注意最后两者之间的区别：

x <- a <- 1
`f<-` <- function(x, a, value) x
f(x, a <- 2) <- 2
f(x <- 2, a) <- 2
# Error in f(x <- 2, a) <- 2 : could not find function "<-<-"

对于您想要执行的操作，我无论如何都会使用 setNames 。

Answer 2

这可能是由于惰性评估造成的。当在一行中执行多个任务时，几乎无法保证事情将以什么顺序完成。显然，在这种情况下，它会在评估作业之前尝试找到 y。如果您只询问名称，则分配 y。

最好分两步完成这些类型的事情，这样您就可以放心，第一步在第二步需要结果之前完成。