带有附加自定义参数的函数调用

Question

我正试图将头绕在 R 中的省略号上。我有一个函数，并且希望能够根据需要将其他参数传递给函数，例如是否返回 df 或类似的。我可以不指定变量名吗？这是一个非常简化的示例，我希望能够将其设为可选，以使函数调用尽可能简单和干净，并在函数中针对各种场景使用多个可能的条件。

 custom.fun<-function(x, y, z, ...){

 a<-sum(x, y, z)

   if (exists('return.var') && return.var=='yes'){
     return(a)
   }
 }

 A<-custom.fun(1,2,3,return.var='yes')

这将返回 Null，因为它显然没有传递 return.var。

Answer 1

我想你可以做类似的事情，捕获list 中的所有可选参数并检查它们中的any 是否具有所需的名称和值。

custom.fun<-function(x, y, z, ...){
   opt_args <- list(...)
   a <- sum(x, y, z)
   if (any(names(opt_args) == 'return.var' & opt_args == 'yes'))
       return(a)
   else 
       return('No arg')
}

custom.fun(1,2,3,return.var = 'yes')
#[1] 6

custom.fun(1,2,3,var = 'yes')
#[1] "No arg"

custom.fun(1,2,3,var='no', return.var = 'yes')
#[1] 6