Создание списков с использованием инструментов tidyeval (например, `!!` и `:=`)

Question

Я ищу способ легко list построение на основе RTidyeval рамки, как это определено в 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)

В качестве альтернативы это может быть немного лучше при добавлении фразы:

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)