base R 将参数的名称替换为函数调用

Question

问题的最终目标是使用r 对语言的计算来构造以下未评估调用，其中list、a_name 和50L 由参数提供.

list(a_name = 50L)

内部看起来像

str(quote(list(a_name = 50L)))
# language list(a_name = 50L)

str(as.list(quote(list(a_name = 50L))))
#List of 2
# $       : symbol list
# $ a_name: int 50

我会将我的变量放在一个列表中，以便进一步的代码更清晰。

params = list(my_fun = as.name("list"), my_name = "a_name", my_value = 50L)

# What I tried so far?

# 1. The first thing that one would try

substitute(my_fun(my_name = my_value),
           params)
#list(my_name = 50L) ## `my_name` was not substituted!

# 2. Workaround get the same output, but only after `setNames` call evaluation, so doesn't really answer the question about constructing specific call

substitute(setNames(my_fun(my_value), my_name), ## alternatively could be `structure(..., names=my_name)`
           params)
#setNames(list(50L), "a_name")

# 3. Another workaround, not really computing on the language but parsing, and integer L suffix is gone!

with(expr = parse(text=paste0(my_fun, "(", my_name, " = ", my_value, ")"))[[1L]],
     data = params)
#list(a_name = 50)

# 4. Working example using rlang

with(expr = rlang::call2(my_fun, !!my_name := my_value),
     data = params)
#list(a_name = 50L)

base r 中是否有任何方法来构造所需的调用？ 基本上可以得到与 rlang 完全相同的输出，但使用 base r。

请注意，此问题不是 this 的重复，后者严格要求 rlang 解决方案。这个问题要求一种使用基础r 来实现它的方法。如果没有办法实现它，我也想知道。谢谢。

Answer 1

假设问题是如何产生一个call对象，它的函数是params的第一个参数，它的单个参数名称是params的第二个分量的值，它的参数值是第三个分量params 然后 c2 是那个调用对象。我们验证生成的 cakl 对象与问题中显示的 rlang 调用对象相同。

c2 <- as.call(setNames(params, c("", "", params2$my_name))[-2])

# verify that c2 equals the output of the rlang example in question
c1 <- with(expr = rlang::call2(my_fun, !!my_name := my_value), data = params)

identical(c1, c2)
## [1] TRUE

这可以概括，因此如果调用有更多参数，因此 params 的长度为 n+2 并且params 的第二个组件是长度为 n 的名称向量，那么它仍然有效。

如果您可以控制输入，我认为将输入列表定义为具有一个用于函数名称的组件和一个用于每个参数的组件，其中组件的名称是参数名称（而不是一个单独的参数来保存名称）。在这种情况下，我们可以简单地编写以下内容。实际上，上面所做的是将 params 转换为该形式，然后使用 as.call ，因此如果可能的话，我们不妨从一开始就提供该形式。

as.call(params2)  # params2[[1]] is func name, params2[-1] is named args

注意

要执行调用，只需使用：

eval(c2)

或者我们可以使用do.call:

do.call(as.character(params[[1]]), setNames(tail(params, -2), params[[2]]))