使用tidyeval工具(如`！！‘和`:=`)构造列表

Question

我正在寻找一种基于list包中定义的R的tidyeval框架的简单的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()：

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

list2(!!a := b)