我想调用一个函数,但是根据情况,我可能会使用附加参数来调用它,也可能不使用。这是一个简单的示例:

FUN <- function(arg1 = "default1", arg2 = "default2", arg3 = "default3")
          print(list(arg1, arg2, arg3))


x1 <- "hi"
x2 <- TRUE
x3 <- 1:3

use.arg3 <- FALSE   # This will decide if `x3` is used or not.

if (use.arg3) {
   FUN(arg1 = x1, arg2 = x2, arg3 = x3)
} else {
   FUN(arg1 = x1, arg2 = x2)
}


虽然代码很清楚,但感觉有点多余。还要想像一下,如果我有类似的use.arg1use.arg2变量,那么我将有各种各样的可能性(8)...

我在下面发布了一个解决方案,但是我发现它有点复杂,以至于我总是很难记住确切的语法。

如果您有更好的主意,谢谢您的分享。

最佳答案

一种解决方案是在构建具有适当参数的列表之后使用do.call

do.call(FUN, c(list(arg1 = x1, arg2 = x2),   # unconditional args
               list(arg3 = x3)[use.arg3]))   # conditional arg


它可以很好地推广到多种情况:

do.call(FUN, c(list(arg1 = x1)[use.arg1]     # conditional arg
               list(arg2 = x2)[use.arg2]     # conditional arg
               list(arg3 = x3)[use.arg3]))   # conditional arg

07-27 13:42