解压...缺少参数

我正在编写一个接受可变数量参数的函数。此外，我希望用户能够将其中一些参数保留为缺失。

只考虑转动的任务...到参数列表中。这是我的第一次尝试：

f <- function(...) list(...)

这失败了：

f(1,,2)
## Error in f(1, , 2) : argument is missing, with no default

我希望结果是list(1, NULL, 2)。 （我不担心区分f(1,,2) from f(1,NULL,2).)

这是我的第二次尝试：

g <- function(...)
{
    args <- match.call()
    miss <- vapply(args, identical, NA, quote(expr=))
    args[miss] <- list(NULL)
    args[[1L]] <- quote(list)
    eval.parent(args)
}

这有效（有点）：

identical(g(1,,2), list(1, NULL, 2))
## [1] TRUE

但是，转发点时失败：

gg <- function(...) g(...)
identical(gg(1,,2), list(1,NULL,2))
## [1] FALSE

有没有办法达到与g，但是以允许转发点并且不使用match.call()?

编辑：转发点的问题。

尝试以下操作很诱人：

h <- function(...)
{
    args <- substitute(list(...))
    miss <- vapply(args, identical, NA, quote(expr=))
    args[miss] <- list(NULL)
    eval.parent(args)
}

但是，正如 @lionel 指出的，如果您尝试转发，将会出现问题...来自另一个函数：

hh <- function(...) h(letters, ...)
local({ a <- "foo"; h(a) })
## Error in eval(expr, p) : object 'a' not found

看来你要么需要expand.dots的功能match.call，或者你需要使用一个quosure（来自rlang包裹）。

使用 rlang 包，您可以选择在捕获点时忽略空参数：

my_dots <- function(...) {
  rlang::dots_list(..., .ignore_empty = "all")
}

my_dots(1, , 2, )
#> [[1]]
#> [1] 1
#>
#> [[2]]
#> [1] 2

如果您确实需要将空参数翻译为NULL除了引用这些点并在转换缺少的参数后评估它们之外，别无选择。现在如果你这样做eval(substitute(alist(...))如果您尝试通过多个函数调用转发点，您将会遇到麻烦。 Base R 没有提供在原始环境中评估引用参数的方法。

幸运的是，通过捕获 quosures 中的点很容易做到：

library("purrr")  # For convenient map_if()

my_dots <- function(...) {
  quos <- rlang::quos(..., .ignore_empty = "none")
  quos <- map_if(quos, rlang::quo_is_missing, function(x) NULL)
  map(quos, rlang::eval_tidy)
}

my_dots(1, , 2, )
#> [[1]]
#> [1] 1
#>
#> [[2]]
#> NULL
#>
#> [[3]]
#> [1] 2
#>
#> [[4]]
#> NULL