使用purrr创建一个quosures列表

Question

使用purrr是否可以返回一个quosure列表？

foo <- c(1:3)
purrr::map(foo, rlang::quo(. + 2))

返回已评估的quosures（即包含3到5个元素的列表）。

是否有一种方法可以返回包含quo（1 + 2），quo（2 + 2）等的列表？

（如果版本重要或在将来访问此页面，则为软件包版本：purrr 0.2.5，rlang 0.2.1）。

- Andrew Hill

---

也许可以使用 purrr::map(foo, ~substitute(rlang::quo(. + 2)))？ - Andre Elrico

似乎返回以下内容：> purrr::map(foo, ~substitute(rlang::quo(. + 2))) [[1]] rlang::quo(..1 + 2)[[2]] rlang::quo(..1 + 2)[[3]] rlang::quo(..1 + 2) - Andrew Hill

请参见 https://adv-r.hadley.nz/quasiquotation.html 中的“使用Map-reduce生成代码”部分。 - Lionel Henry

谢谢Fab。我猜这是《Advanced R》的新章节？第一版是我的R圣经，但我倾向于使用纸质版本。 - Andrew Hill

刚才快速浏览了一下那章节 - 真棒。正是我需要的（对于我的这个问题和其他一些问题，我的项目中进行了太多的“tidyeval”操作!!!） - Andrew Hill

Answer 1

你可以使用!!将输入解除引用为一个 quosure：

foo <- c(1:3)
purrr::map(foo, ~ rlang::quo(!!.x + 2))
#> [[1]]
#> <quosure>
#>   expr: ^1L + 2
#>   env:  0000000015213C98
#> 
#> [[2]]
#> <quosure>
#>   expr: ^2L + 2
#>   env:  0000000015217758
#> 
#> [[3]]
#> <quosure>
#>   expr: ^3L + 2
#>   env:  00000000157B9FD0

请注意，这里我们在map()中使用公式缩写来返回一个未求值的quosure匿名函数。Quosure本身可以通过purrr::as_mapper()强制转换为函数，因此您之前得到求值答案的原因是因为您本质上是在编写map(foo, ~ . + 2)。

创建于2018-08-06，使用reprex包（v0.2.0.9000）。

- Mikko Marttila