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)

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

1 个答案: