当参数具有默认值时，如何在递归调用中让missing()参数也丢失？

Question

我的R函数使用丢失（）在指定输入数据的两种替代方法之间切换。但是，如果输入是factor，我想自动将功能应用于因子级别，因此我进行递归调用。现在，我有一个问题，我将所有参数转发到递归调用中，因此没有任何参数不再丢失了！如何使用父呼叫中缺少的所有参数进行递归调用？

最小示例：

f <- function(a, b = 1){
  print(missing(b))
  if(length(a)>0) f(a = a[-1], b = b)
}

f（1：2） prints：

[1] TRUE
[1] FALSE
[1] FALSE

我想要的是

[1] TRUE
[1] TRUE
[1] TRUE

当b没有默认值时，这是有效的，因此f当然

f <- function(a, b){
...

也可以选择使用切换递归调用，如果（缺少（b））

if(missing(b)) f(a = a[-1]) else f(a = a[-1], b = b)

...但是这对于多个参数变得复杂，也剥夺了我在r ;--中学习有关参数奇怪奇迹的选择。 ）

Answer 1

您可以使用match.call捕获呼叫，然后在呼叫中替换a a [-1]。然后，使用do.call，而不是使用参数调用该函数，它将仅在递归调用中提供最初放入函数的参数。

f <- function(a, b = 1){
  print(missing(b))
  
  call_list <- as.list(match.call())[-1]

  if(length(a) > 0) {
    a <- a[-1]
    call_list$a <- a
    do.call(f, call_list)
  }
}

f(1:2)
#> [1] TRUE
#> [1] TRUE
#> [1] TRUE