r - 整洁的评估 : Adding an argument to a function that prevents gathering

Question

我正在尝试构建一个收集(pivot_longer)数据的函数。
在大多数情况下，该函数应该收集所提供数据中除一列之外的所有列，但是应该允许用户在所提供数据中指定不应收集的其他列。这是用户很少会做的事情，因此参数应该默认为没有额外的列。

我认为我的函数失败是因为它默认为 NULL。

数据:

library(tidyverse)
sample_data <- tibble(
  frame = rep(seq(1:20), 2),
  ID = rep(c(1,2), each = 20),
  a = rnorm(n = 40),
  b = rnorm(n = 40),
  c = rnorm(n = 40))

功能:

a_gather_function <- function(.data, also_dont_gather = NULL) {
  .data %>% 
  tidyr::gather(key, value, -frame, -{{also_dont_gather}})
}

如果我为参数 also_dont_gather 提供一列，该函数就会工作

sample_data %>% 
  a_gather_function(also_dont_gather = ID) %>% 
  head(5)

# A tibble: 5 x 4
  frame    ID key    value
  <int> <dbl> <chr>  <dbl>
1     1     1 a     -0.626
2     2     1 a      0.184
3     3     1 a     -0.836
4     4     1 a      1.60 
5     5     1 a      0.330

但默认值 NULL 失败:

sample_data %>% 
  a_gather_function()

 Error in -x : invalid argument to unary operator 

我很确定错误来自评估为 -NULL 的函数，因为以下代码给出了相同的错误:

sample_data %>% 
  tidyr::gather(key, value, -frame, -NULL)

Error in -x : invalid argument to unary operator

你能帮我构建一个函数，允许用户指定不应收集但默认为没有额外列的额外列吗？

Answer 1

编辑:此答案已过时，参见https://stackoverflow.com/a/57900856/1725177对于推荐的解决方案。

我在 tidyselect 中打开了一个问题.

在此期间，您可以使用引号和反引号模式，并检查您是否使用 quo_is_null() 捕获了默认的 NULL:

a_gather_function <- function(.data, also_dont_gather = NULL) {
  also_dont_gather <- enquo(also_dont_gather)

  if (rlang::quo_is_null(also_dont_gather)) {
    tidyr::gather(.data, key, value, -frame)
  } else {
    tidyr::gather(.data, key, value, -frame, -!!also_dont_gather)
  }
}