fun1 <- function(a = 10, b = 7) runif(a, -b, b)
fun2 <- function(c = 9) 2^c
fun3 <- inherit_default_params(
super = list(fun1, fun2),
fun = function(a, b, c) {
list(x = fun1(a, b), y = fun2(c))
}
)
fun3
Run the code above in your browser using DataLab