r - 是否可以将多个变量传递给同一 curl curl ？

Question

我正在构建一个使用 {{ }}( curl curl 或双 mustache )的函数

我希望用户能够将多个变量传递到同一个 {{ }}，但我不确定使用 {{ }} 是否可行。我找不到任何显示如何执行此操作的示例。

如果可能的话，你能告诉我吗，如果可能，请帮助我使下面的最小 reprex 工作？

library(tidyverse)

group_mean <- function(.data, group){
  .data %>% 
    group_by({{group}}) %>% 
    summarise_all(mean)

}

# Works
mtcars %>% 
  group_mean(group = cyl)

# Fails
mtcars %>% 
  group_mean(group = c(cyl, am)) 

Error: Column `c(cyl, am)` must be length 32 (the number of rows) or one, not 64 

Answer 1

如果您的函数采用多组多变量，则需要使用 vars() 进行外部引用.此函数只是将其输入捕获为表达式列表:

vars(foo, bar)
#> [[1]]
#> <quosure>
#> expr: ^foo
#> env:  global
#>
#> [[2]]
#> <quosure>
#> expr: ^bar
#> env:  global

拿一个你与 !!! 拼接的论点:

group_mean <- function(.data, .vars, ...) {
  .data <- doingsomethingelse(.data, ...)

  .data %>% 
     group_by(!!!.vars) %>% 
     summarise_all(mean)
}

像这样使用它:

data %>% group_mean(vars(foo, bar), baz, quux)