在环境中分配列表属性

Question

标题是一个独立的问题。一个例子可以澄清这一点：考虑一下

x=list(a=1, b="name")
f <- function(){
    assign('y[["d"]]', FALSE, parent.frame() )
}
g <- function(y) {f(); print(y)}

g(x)

$a
[1] 1

$b
[1] "name"

，而我想得到

g(x)

$a
[1] 1

$b
[1] "name"

$d
[1] FALSE

一些评论。我知道我原来的例子有什么问题，但我用它来明确我的目标。我想避免 <<-，并希望 x 在父框架中更改。

我认为我对环境的理解很原始，任何参考资料都会受到赞赏。

Answer 1

assign 的第一个参数必须是变量名，而不是表达式的字符表示形式。尝试将 f 替换为：

f <- function() with(parent.frame(), y$d <- FALSE)

请注意，a、b 和 d 是列表组件，而不是列表属性。如果我们想在 f 的父框架中向 y 添加属性 "d"，我们会这样做：

f <- function() with(parent.frame(), attr(y, "d") <- FALSE)

另外，请注意，取决于你想要做什么，让 x 成为一个环境或一个 proto 对象（来自 proto 包）可能会（也可能不会）更好。

Answer 2

assign 的第一个参数必须是对象名称。您对 assign 的使用与分配帮助页面末尾的反例基本相同。观察：

> x=list(a=1, b="name")
> f <- function(){
+     assign('x["d"]', FALSE, parent.frame() )
+ }
> g <- function(y) {f(); print(`x["d"]`)}
> g(x)
[1] FALSE   # a variable with the name `x["d"]` was created

这可能是您想要使用“<<-”的地方，但它通常被认为是可疑的。

> f <- function(){
+     x$d <<- FALSE
+ }
> g <- function(y) {f(); print(y)}
> g(x)
$a
[1] 1

$b
[1] "name"

$d
[1] FALSE

在本练习没有任何目标并忽略 Gabor 指出的术语“属性”的情况下，提出了进一步的想法，该术语在 R 中具有特定含义，但可能不是您的目标。如果您想要的只是输出符合您的规格，那么这可以实现该目标，但请注意全局环境中的 x 没有发生变化。

> f <- function(){
+     assign('y', c(x, d=FALSE), parent.frame() )
+ }
> g <- function(y) {f(); print(y)}
> g(x)
$a
[1] 1

$b
[1] "name"

$d
[1] FALSE

> x    # `x` is unchanged
$a
[1] 1

$b
[1] "name"

f 的parent.frame 可能被称为“g 的内部”，但更改不会传播到全局环境。