问R中函数解析树的冗余性

EN

显然，这个组件是一个源引用:在R language definition中很难找到它，但它的目的正是为了保留原始源的结构，特别是注释；例如

s <- substitute(function(x=1){ 
      ## a comment
       x^2})
str(s[[4]])
##  Class 'srcref'  atomic [1:8] 1 21 2 15 21 15 1 2
##   ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x8a87634>

显示它是一个srcref对象。神秘的数字(1，21，2，15，...)表示表示源代码的低级对象的索引，如?srcfile页面(即c(first_line, first_byte, last_line, last_byte, first_column, last_column, first_parsed, last_parsed))中所述。正如@SimonO101指出的那样，有一个R Journal article by Duncan Murdoch可能给出了最好的解释。

一些额外的注意事项：

1)可以使用options(keep.source=FALSE) (默认为TRUE)禁用此功能：

> as.list(substitute(function(x = 1){x^2}))
[[1]]
`function`

[[2]]
[[2]]$x
[1] 1


[[3]]
{
    x^2
}

[[4]]
NULL

在这个list中，第一个元素是标识闭包对象的符号，第二个元素保存formals，第三个元素保存body。请注意，最后一个是以“标准”方式打印的。第四个元素将保存键入的输入文本。

2)如果您在控制台输入function(x = 1){x^2}，R将调用print.function，后者接受useSource参数。这在默认情况下是TRUE，并导致R简单地重复解析列表的第四个元素中存储的内容。将其设置为FALSE将强制R打印函数body

> options(keep.source=TRUE)
> f <- function(x = 1){x^2}
> f
function(x = 1){x^2}
> print.function(f)
function(x = 1){x^2}
> print.function(f, useSource=FALSE)
function (x = 1) 
{
    x^2
}