如果我想使用`suptor_with（）`'使用拥抱操作员怎么办？

Question

使用拥抱操作员消除了将参数包含在双引号标记中的函数的必要性。

但是，如果我想将其与start_with（）一起使用该怎么办？

# This works.
test <- function(var) {
  mtcars |>
    dplyr::select({{ var }})
}
test(mpg) |> head()
#>                    mpg
#> Mazda RX4         21.0
#> Mazda RX4 Wag     21.0
#> Datsun 710        22.8
#> Hornet 4 Drive    21.4
#> Hornet Sportabout 18.7
#> Valiant           18.1

# But this won't work.
test2 <- function(var) {
  mtcars |>
    dplyr::select(starts_with({{ var }}))
}

test2(m) |> head()
#> Error in `dplyr::select()`:
#> !  オブジェクト 'm' がありません 

Answer 1

尝试以下代码：

library(dplyr)

test2 <- function(var) {
  x <- deparse(substitute(var))
  mtcars |> select(starts_with(x))
}
test2(m) |> head()

输出：

                   mpg
Mazda RX4         21.0
Mazda RX4 Wag     21.0
Datsun 710        22.8
Hornet 4 Drive    21.4
Hornet Sportabout 18.7
Valiant           18.1

Answer 2

即使选择采用未引用的字符串，因此可以与test（M）一起使用，但对于starts_with，IE并非如此

test2('m')
                     mpg
Mazda RX4           21.0
Mazda RX4 Wag       21.0
Datsun 710          22.8