R如何包装使用TidyeVal的函数？

Question

我有一个函数，它使用tidyeval，例如select_this下面定义的。我有另一个函数wrapper_select_this包装它，但是我会收到以下错误。是否有一种简单的方法来调整wrapper_select_this进行工作（在这种情况下：输出与函数select_this相同）？

library(tidyverse)

z <- c("a", "b")
df <- data.frame(Z = 1:3, a = 1:3, b = 1:3)

select_this <- function(df, x){
  x_upper <- enexpr(x) %>% str_to_upper
  
  df %>%
    select(
      all_of(x_upper), all_of(x)
    )
}

wrapper_select_this <- function(df, x){
  df %>% select_this(x)
  
}

df %>% select_this(z)
#>   Z a b
#> 1 1 1 1
#> 2 2 2 2
#> 3 3 3 3

df %>% wrapper_select_this(z)
#> Error: Can't subset columns that don't exist.
#> x Column `X` doesn't exist.

^由

Answer 1

如果您更改 select_this() 以支持定额，则可以使用 {{ 与其交互。在这种情况下，您可以使用 as_name() 将潜在的 quosured 符号转换为字符串：

z <- c("a", "b")
df <- data.frame(Z = 1:3, a = 1:3, b = 1:3)

select_this <- function(df, x) {
  x_upper <- toupper(rlang::as_name(enquo(x)))

  df %>%
    select(all_of(x_upper), all_of(x))
}

df %>% select_this(z)
#>   Z a b
#> 1 1 1 1
#> 2 2 2 2
#> 3 3 3 3

然后使用 {{ 与它交互：

wrapper_select_this <- function(df, x){
  df %>% select_this({{ x }})
}

df %>% wrapper_select_this(z)
#>   Z a b
#> 1 1 1 1
#> 2 2 2 2
#> 3 3 3 3

我不得不说我发现它是有点令人困惑的是，您通过解散名称和同名环境变量中包含的列名称来选择列。