r - 使用substitute() 替换标签/参数名称

Question

我有以下代码:

eval(substitute(list(x = y), list(x = "foo", y = "bar")))

这将返回 list(x = "bar") ，即只有值被替换，而不是标签。

如何制作 substitute()也替换标签，结果是 list(foo = "bar") .

Answer 1

x绑定(bind)到一个名字。我们可以看到

as.list(substitute(list(x = y)))
# [[1]]
# list
#
# $x
# y

因此，在 substitute 中更改名称并不容易。称呼。但你可以做

e <- substitute(list(x = y), list(y = "bar"))
names(e)[2] <- "foo"
eval(e)
# $foo
# [1] "bar"

或仅使用 substitute您可以更改表达式以使用 setNames

e <- substitute(setNames(list(y), x), list(x = "foo", y = "bar"))
eval(e)
# $foo
# [1] "bar"

但您也可以使用 call , 这更容易

cl <- call("list", foo = "bar")
eval(cl)
# $foo
# [1] "bar"