多次评估省略号（点），替换参数

Question

上下文

我在 R 中使用包装函数调用的“省略号”或“点”

main_function <- function(...)

如果我想评价一次，我就评价

main_function <- function(...) {
    res = list(...)}

工作正常

问题

fun_A <- function(arg_A){
    print(paste("I am A", paste0(round(runif(arg_A, 0,1), 2),collapse = ", ")))
}

fun_B <- function(arg_B){
    print(paste("I am B", paste0(round(runif(arg_B, 1,2), 2),collapse = ", ")))
}

此处结果计算一次并复制 3 次：

main_fun_wrong <- function(..., times) {
    res = list(...)
    replicate(times, eval(res))
}

main_fun_wrong(fun_A(1), fun_B(2), times = 3)

这里有效：

main_fun <- function(..., times) {
    calls = match.call(expand.dots = FALSE)$`...`
    replicate(times, lapply(1:length(calls), function(num) eval(calls[[num]])), simplify = F)
}

main_fun(fun_A(1),fun_B(2), times = 3)

但是现在如果 arg_A 是一个对象而不是一个值，它将无法在环境中找到 arg_A 和 arg_B。

main_fun_problem <- function(arg_A, arg_B) {
    main_fun(fun_A(arg_A),fun_B(arg_B), times = 3)
}

main_fun_problem(1,2)

我收到一个错误：

Error in fun_A(arg_A) : object 'arg_A' not found

我不知道 R 在第一个例子中第一次找到 list(...) 时做了什么，但我只想重复多次。

Answer 1

这是我的解决方案，任何替代方案都会受到欢迎。

事情是在我们调用函数时用它的值替换变量。

main_fun_solution <- function(arg_A, arg_B) {
    eval(substitute(main_fun(fun_A(arg_A),fun_B(arg_B), times = 3), list("arg_A" =  arg_A, "arg_B" =  arg_B)))
}

main_fun_solution(1,2)

NB: list("arg_A" = arg_A, "arg_B" = arg_B)`让我心血来潮（实际上是整体解决方案）

多次评估省略号（点），替换参数

Evaluate elipsis (dots) multiple times, substitute arguments

functional-programming

r

ellipsis

上下文

问题