我想调用一个函数,但根据具体情况,我可能会使用额外的参数来调用它,也可能不使用额外的参数。这是一个简单的例子:
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.arg1
and use.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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)