屏蔽现有对象时如何从函数分配给全局变量？

Question

我有这样的功能：

myfun <- function ()
{
    df <<- data.frame(a = 1)
}
myfun()

但它报告错误“myfun() 中的错误：无法更改 'df' 的锁定绑定值”。我真的需要修改全局变量 df 并且我不在乎是否屏蔽现有函数。我该怎么做？

我发现了这个解决方案。它可以工作，但有什么不那么复杂的吗？

myfun <- function ()
{
    df <- data.frame(a = 1)
    assign("df", df, envir = .GlobalEnv)
}
myfun()

Answer 1

这里的最佳解决方案是完全避免处理函数内部的变量范围。如果您想创建一个可用于分配数据框变量的函数，则只需让该函数返回数据框：

myfun <- function() {
    df <- data.frame(a = 1)
    return(df)
}

# from some calling scope
mydf <- myfun()

如果您希望在某个范围内分配数据框，则让该范围进行分配，而不是让函数执行此操作。

Answer 2

@TimBiegeleisen 的回答没有什么可补充的；但是，为了响应您的帖子和您看到的错误，您需要在函数范围之外声明 df。

以下作品

df <- data.frame()
myfun <- function () df <<- data.frame(a = 1)
myfun()
df
#  a
#1 1

但是请注意，这不是应该如何使用<<-，请参阅Dirk Eddelbuettel's answer to "What is the difference between assign and <<- in R"。总结一下：

• 您可以使用 <<- 更新父（但不是全局）环境中的对象（具有词法范围的“超级赋值”），反之亦然
• 不要使用 <<- 来更新全局环境中的对象。