Question

作为R作为函数式语言的症状，可以使用纯函数表示法指定许多控制结构。例如，if语句：

> as.list((substitute(if(a == 1) 1 else 2)))
[[1]]
`if`

[[2]]
a == 1

[[3]]
[1] 1

[[4]]
[1] 2

> as.list(substitute(`if`(a == 1, 1, 2)))
[[1]]
`if`

[[2]]
a == 1

[[3]]
[1] 1

[[4]]
[1] 2

出于好奇，我试图对函数定义做同样的事情。函数通常使用function(args) body语法构造，但在R中也存在一个名为function的函数。我遇到的问题是函数的未评估定义将包含一个pairlist：

> substitute(function(x = 1, a) {x + a})[[2]]
$x
[1] 1

$a
[empty symbol]

第二个参数是参数名称和默认值之间的一个参数，它们可能是空符号。据我所知，仅使用手动调用就不可能将列表或pairlist作为表达式的一部分传递。以下是我的尝试：

> substitute(`function`(x, {x + 1}))
Error: badly formed function expression
> substitute(`function`((x), {x + 1}))
function(`(`, x) {
    x + 1
}

如果我将单个符号作为第二个参数传递给`function`，则会抛出错误（这对于具有多个参数的函数不起作用）。当将调用作为第二个参数传递时，调用似乎在被解析时被强制转换为列表。

使用第一个参数作为调用名称可能会滥用此功能：

> substitute(`function`(a(x), {x + 1}))
function(a, x) {
     x + 1
}

然而，这个电话实际上并没有转换为一个画面，只是看起来如此。在计算此表达式时，会引发错误。以某种方式将列表/ pairlist插入到替换调用的结果中是理想的。有谁知道怎么做？

Answer 1

这不是快速回答，但我只是专注于你的函数调用。

试试这段代码：

   as.list((substitute(function(x = 1, a) {x + a})))
   [[1]]

    `function`

  [[2]]

  [[2]]$x

  [1] 1

  [[2]]$a

  [[3]]
   {
      x + a
    }
 [[4]]
      function(x = 1, a) {x + a}

在R中手动构造函数

1 个答案: