将向量元素作为连续参数传递给调用函数

Question

给定函数和测试向量：

multiply_stuff <- function(...) {
    arguments <- list(...)
    Reduce(f = `*`, x = arguments)
}

test_vec <- c(1, 20, 3, 40, 5, 60)

我想自动创建一个未评估的call，列出传递向量的所有参数。在这个例子中，这相当于表达式：

call("multiply_stuff",
     test_vec[1],
     test_vec[2],
     test_vec[3],
     test_vec[4],
     test_vec[5],
     test_vec[6])

尝试

例如，对于向量：

test_vec_B <- c(1, 5, 6, 8, 9, 11, 12, 14, 20, 11)

我希望自动列出call("multiply_stuff",...)中所有test_vec_B参数。自然地，以下代码无法实现此功能：

call("multiply_stuff", test_vec_B)
call("multiply_stuff", list(test_vec_B))

期望的结果

未求值表达式的等价形式：

call(
    "multiply_stuff",
    test_vec_B[1],
    test_vec_B[2],
    test_vec_B[3],
    test_vec_B[4],
    test_vec_B[5],
    test_vec_B[6],
    test_vec_B[7],
    test_vec_B[8],
    test_vec_B[9],
    test_vec_B[10]
)

- Konrad

---

可能相关但没有确定的答案：https://stackoverflow.com/questions/42398790/creating-an-unevaluated-function-call-with-unevaluated-but-changing-arguments?utm_medium=organic&utm_source=google_rich_qa&utm_campaign=google_rich_qa - LAP

@ LAP 感谢您提供的链接。 实际上，do.call 提供了类似的功能，因为它可以接受其args的列表。 尽管如此，我仍然想要创建一个未评估的表达式，而 do.call 则会进行评估。 - Konrad

Answer 1

您可以创建一个call对象，然后向其中添加参数：

multiply_stuff <- function(...) {
  arguments <- list(...)
  Reduce(f = `*`, x = arguments)
}
test_vec_B <- c(1, 5, 6, 8, 9, 11, 12, 14, 20, 11)

get_call <- function(f, arg_vector){
  my_call <- call(f)
  my_call[2:(length(arg_vector) + 1)] <- arg_vector
  return(my_call)
}

multiply_stuff(1, 5, 6, 8, 9, 11, 12, 14, 20, 11)
[1] 878169600

test_call <- get_call("multiply_stuff", test_vec_B)
eval(test_call)
[1] 878169600

解释：当您创建一个 call 对象时，您可以像平常一样通过索引访问/修改函数及其参数。索引 1 是函数调用，从索引 2 开始的位置是参数。运行以验证：

test_call2 <- call("sum", 1, 2)
test_call2[1]
test_call2[2]
test_call2[3]
eval(test_call2)

test_call2[3] <- 1234
eval(test_call2)

- pieca

---

非常感谢，这是一个很好的解决方案。我认为 my_call[2:(length(arg_vector) + 1)] 是关键所在。 - Konrad