Question

这是我在使用...参数和tidyselect选择变量的软件包中得到的函数的简化版本：

# this toy function just selects the ... variables
foo <- function(dat = mtcars, ...){
  expr <- rlang::expr(c(...))
  cols_to_select <- tidyselect::eval_select(expr, data = dat)
  dplyr::select(dat, all_of(cols_to_select))
}

这有效：foo(mtcars, cyl)

但是我的实际函数在...参数之前有更多的前置参数，所有参数均具有默认值。在我使用这些默认值调用函数并将值传递给...的情况下，将它们全部键入很麻烦。

这就是我想要的-假设dat = mtcars-但不起作用：

foo(... = cyl)

错误：名称的格式不能为...或..j。

我可以修改函数或调用以允许直接指定...吗？

Answer 1

将带有默认值的参数放在点后的通常是一个好主意。

f <- function( ..., dat=mtcars )
    dplyr::select( dat, ... )

f(cyl)                 # Works
f(dat=iris, Species)   # Also works

如果您的API不允许您将命名默认参数放在点后，则这是另一种选择。请注意，您不必显式指定具有默认值的命名参数。您可以简单地让它们“丢失”：

foo(, cyl)    # Same as foo( dat=mtcars, cyl )

如果您有很多默认参数，并且不想在调用中继续使用逗号，则可以使用purrr::partial()将此模式捕获为独立函数：

foo2 <- purrr::partial(foo, ,)  # Effectively partial(foo, dat=mtcars)
foo2(cyl)                       # Works

如果仍然需要输入更多逗号，则可以增加一个步骤：

foo3 <- purrr::partial( foo, !!!purrr::keep(formals(foo), nzchar) )
foo3(cyl, mpg)                  # Also works

在调用使用tidyselect的函数时指定点参数，而无需指定前面的参数

1 个答案: