如果未在包装器函数中指定，如何使父函数默认运行

Question

我正在编写一个包装函数，其中我正在链接管道的多个步骤。我想将其做到，以便用户可以输入多个选项，如果存在该值，则可以输入该值，而Paernt的默认功能否则。

例如

orig_func1 <- function(num = 1, x=3, y=2){
   num <- (x + y)/num
   return(num)

orig_func2 <- function(num = 1, z=5, w=23){
   num <- (z - w)/num
   return(num)

，现在我想创建一个包装器，以执行指定的次数。 每次迭代作为下一个功能的输入进行更改

wrapper <- function(
   num = 1,
   steps = list(c(step = NULL, x = NULL, y = NULL),
                c(...),...){
    for (i in 1:length(steps)){
        if (steps[[i]]['step'] == "orig_func1"){
           num <- orig_func1(num = num, x = steps[[i]][['x']], y = steps[[i]][['y']]
           }
        if (steps[[i]]['step'] == "orig_func2"){
           num <- orig_func2(num = num, z = steps[[i]][['z']], y = steps[[i]][['z']]
           }
      }
  

NUM使用

test <- (
   num = 1,
   steps = list(c(step = orig_func1, x = 2, y = 5),
                c(step = orig_func2, z = 4, w = 6), 
                c(step = orig_func1, x = 2) # I want default for y in this case

我希望 [[i]] [['y']]找不到。我该如何制作它，以便如果不在包装器中的默认值重新确定默认值中，则使用父函数的默认值？

Answer 1

您的代码并不特别清楚，并且存在许多错误，因此很难确切地看到您要做的事情 - 例如，您不会在任何地方返回计算的数字，因此包装器功能的输出始终是无效的。

我认为您可以通过使用base :: do.call将参数作为列表提供而不是单独提取它们来解决您要做的事情。

这样的事情：

wrapper <- function(num = 1,
                    steps = list()){
  for (i in 1:length(steps)){
    
    step_func <- steps[[i]][["step"]] # get function from 'step' element
    
    step_args <- steps[[i]][-1] # remove 'step' element
    
    num <- base::do.call(step_func, step_args) # call function with arguments
   
  }
  
}