将c（“x”，“y”，“z”）之类的矢量转换为函数（x，y，z）{}

Question

如何将像c("x","y","z")这样的向量转换为R中的function(x , y, z){} ？

我正在寻找像formalArgs()反向函数。

请注意，我知道as.function(alist(x=,y=,{}))但我不知道如何从给定的向量中插入x=和y= 。

Answer 1

基本上要让这个工作你需要打电话

as.function(alist(x=, y=, z=, {}))`

这相当于

as.function(alist(x=bquote(), y=bquote(), z=bquote(), {}))

第二种形式很好，因为我们有一组alist的命名参数，可以使用list和do.call编程方式提供：

l <- list(x=bquote(), y=bquote(), z=bquote(), bquote({}))
as.function(do.call(alist, l))
# function (x, y, z) 
# {
# }

剩下的就是从变量名列表中以编程方式构造我们的列表l ，可以使用setNames和replicate来完成：

vec <- c("x","y","z")
as.function(do.call(alist, c(setNames(replicate(length(vec), bquote(), F), vec),
                             bquote({}))))
# function (x, y, z) 
# {
# }

Answer 2

参数只是一个命名列表。 对内部旋风的胁迫是自动的。

#argument list
p<-c("x","y","z")
args<-vector("list",length(p))
for(i in seq(args)) args[[i]]<-substitute()
names(args)<-p

#set a default value for y for the sake of example
args$y<-2

#construct function
body<-quote(x+y+z)
f<-as.function(c(args,body))

#test it
f(1,z=3)
#[1] 6