R:从函数输入将列表元素转换为表达式

Question

我正在编写一个函数，其中输入是另一个函数的参数和名称。 我想将这些参数和函数名称转换为未计算的表达式或调用。例如，如果这是对函数的调用：

huh_fun(
data = mtcars
method = lm,
formula = hp ~ mpg,
method.args = list(weights = drat, subset = rep(TRUE, 32)) # list of additional arguments
)

我希望函数返回以下未计算的表达式/调用：

lm(hp ~ mpg, data = mtcars, weights = drat, subset = rep(TRUE, 32))

我成功地引用了data=、method=和formula=的论点，并将它们组合成一个电话。但是无法弄清楚如何引用method.args=参数，并将列表元素添加到函数参数中。 感谢任何和所有指针。 谢谢~

Answer 1

在"huh_fun"中具有固定的参数名称，我们可以使用"language"对象构造一个未计算的调用：

huh_fun = function(data, method, formula, method.args)
{
ans = c(list(substitute(method), 
substitute(formula), 
data = substitute(data)), 
as.list(substitute(method.args))[-1])
as.call(ans)
}
huh_fun(
data = mtcars,
method = lm,
formula = hp ~ mpg,
method.args = list(weights = drat, subset = rep(TRUE, 32)))
#lm(hp ~ mpg, data = mtcars, weights = drat, subset = rep(TRUE, 
#    32))

Answer 2

您可以使用deparse(substitute(x))并一起paste。使用str2lang生成呼叫。

huh_fun <- function(data, method, formula, method.args) {
str2lang(paste0(deparse(substitute(method)), "(", deparse(substitute(formula)), ", ",
"data = ", deparse(substitute(data)), ", ", 
gsub("list\((.*)\)$", "\1", deparse(substitute(method.args))),
")"))
}

结果

huh_fun(
data=mtcars,
method=lm,
formula=hp ~ mpg,
method.args=list(weights=drat, subset=rep(TRUE, 32)) # list of additional arguments
)
# lm(hp ~ mpg, data = mtcars, weights = drat, subset = rep(TRUE, 32))