后续：R中过滤器识别函数输入？

Question

在我下面的foo() 调用中，有没有办法让dot_first（... 中捕获的第一个元素）在函数内部被识别？

目前，dot_first 无法识别。

library(tidyverse)
library(rlang)

foo <- function(...){
  
  dots <- rlang::list2(...)  
  dot_first <- names(dots)[1]
  
  dat <- expand_grid(...)  
  dat %>%
    filter(!!dot_first != 1)
}

foo(study = 1:2, test = LETTERS[1:2])

Answer 1

你可以使用 -

library(tidyverse)

foo <- function(...){
  dots <- list(...)  
  dot_first <- names(dots)[1]
  
  dat <- expand_grid(...)  
  dat %>%
    filter(.data[[dot_first]] != 1)
}

foo(study = 1:2, test = LETTERS[1:2])

#  study test 
#  <int> <chr>
#1     2 A    
#2     2 B