使用 tidyeval 工具构建列表（如 `!!` 和 `:=`）

Question

我正在寻找一种基于 R 的 tidyeval 框架的简单 list 构建方法，如 rlang 包中所定义。

下面是我想要实现的：

a <- "item_name"
b <- "item_value"
identical(
    list(!!a := !!b),    # list(!!a := b) is of course also fine
    list(item_name = "item_value")
)

我目前可以获得的是：

list(!!a := !!b)
# output
[[1]]
`:=`(!(!a), !(!b)

或者添加 quosure:

可能会好一点

quo(list(!!a := !!b))
# output
<quosure: global>
~list(`:=`("item_name", "item_value"))

不幸的是，我不知道如何从这里继续下去。

换句话说，我希望得到与 dplyr 包中的效果类似的效果：

transmute(iris, !!a := b)
# first few rows
    Sepal.Length Sepal.Width Petal.Length Petal.Width    Species  item_name
1            5.1         3.5          1.4         0.2     setosa item_value
2            4.9         3.0          1.4         0.2     setosa item_value
3            4.7         3.2          1.3         0.2     setosa item_value
4            4.6         3.1          1.5         0.2     setosa item_value
5            5.0         3.6          1.4         0.2     setosa item_value
6            5.4         3.9          1.7         0.4     setosa item_value

Answer 1

可以使用rlang::list2()，支持:=不加引号，!!!拼接。

请注意，您不应该取消对参数本身的引用，因为 list2() 不是引用函数，它就像 list() 一样具有更多语法特征：[=16=]

a <- "item_name"
b <- "item_value"

list2(!!a := b)

使用 tidyeval 工具构建列表（如 `!!` 和 `:=`）

Constructing lists using tidyeval tools (like `!!` and `:=`)

r

tidyeval

rlang