如何在 R 中创建包含空元素的配对列表？

Question

在 R 中，当我这样做时

substitute(function(a) { a })[[2]]

，我会看到以下对列表：

$a

请注意，元素的值为空。我怎样才能创建这样的配对列表？以下对我不起作用：

> pairlist(a="")
$a
[1] ""

我在以编程方式创建函数的上下文中询问这个问题。我想做类似的事情，

> call("function", pairlist(a=""), call("{", as.symbol("a")))
function(a = "") {
    a
}

这与我所做的非常接近。

> substitute(function(a){a})
function(a) {
    a
}

除了函数参数部分之外，

Answer 1

试试这个：

> as.pairlist(alist(a=))
$a

也许你想做的是：

> f2 <- as.function(alist(a=1,b=,{a+b}))
> f2
function (a = 1, b) 
{
    a + b
}

Answer 2

使用alist(a=)。

您可能还会发现函数 formals 和 body 对于以编程方式创建函数很有帮助，而不是 substitute 和 call。这是文档 ?formals 中的一个示例

f <- function(x) a+b
formals(f) <- alist(a=,b=3) # function(a,b=3)a+b
f(2) # result = 5

，可以像这样扩展

body(f) <- expression(2*a+b)
f(2) # result = 7