18

通过使用 R 中的一个函数，我发现它的方面比表面上看到的要多。

考虑一下直接在控制台中输入的简单函数分配：

f <- function(x)x^2

从广义上讲，通常的“属性”f是（i）形式参数列表，（ii）主体表达式和（iii）将成为函数评估框架的外壳的环境。它们可通过以下方式访问：

> formals(f)
$x
> body(f)
x^2
> environment(f)
<environment: R_GlobalEnv>

此外，str返回附加到的更多信息f：

> str(f)
function (x)  
 - attr(*, "srcref")=Class 'srcref'  atomic [1:8] 1 6 1 19 6 19 1 1
  .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x00000000145a3cc8>

让我们尝试联系他们：

> attributes(f)
$srcref
function(x)x^2

这被打印为文本，但它被存储为数字向量：

> c(attributes(f)$srcref)
[1]  1  6  1 19  6 19  1  1

而这个对象也有自己的属性：

> attributes(attributes(f)$srcref)
$srcfile


$class
[1] "srcref"

第一个是一个环境，有 3 个内部对象：

> mode(attributes(attributes(f)$srcref)$srcfile)
[1] "environment"
> ls(attributes(attributes(f)$srcref)$srcfile)
[1] "filename"      "fixedNewlines" "lines" 
> attributes(attributes(f)$srcref)$srcfile$filename
[1] ""
> attributes(attributes(f)$srcref)$srcfile$fixedNewlines
[1] TRUE
> attributes(attributes(f)$srcref)$srcfile$lines
[1] "f <- function(x)x^2" ""

你在这！这是 R 用来打印的字符串attributes(f)$srcref。

所以问题是：

  1. 是否有任何其他对象链接到f？如果是这样，如何联系他们？

  2. 如果我们去掉f它的属性，使用attributes(f) <- NULL，它似乎不会影响功能。这样做有什么缺点吗？

4

2 回答 2

15

据我所知，srcref是通常附加到 S3 函数的唯一属性。（S4 函数是另一回事，我不建议弄乱它们有时众多的属性）。

该srcref属性用于启用打印函数源代码中包含的注释，以及（对于从文件中获取的函数）按行号设置断点，使用utils::findLineNum()和utils::setBreakpoint()。

srcref如果你不希望你的函数携带这样的额外行李，你可以通过do 关闭记录options(keep.source=FALSE)。来自?options（也记录了相关keep.source.pkgs选项）：

'keep.source'：当'TRUE'时，函数的源代码（新定义或加载的）存储在内部，允许将注释保存在正确的位置。通过打印或使用 'deparse(fn, control = "useSource")' 检索源。

比较：

options(keep.source=TRUE)
f1 <- function(x) {
    ## This function is needlessly commented
    x
}

options(keep.source=FALSE)
f2 <- function(x) {
    ## This one is too
    x
}

length(attributes(f1))
# [1] 1
f1
# function(x) {
#     ## This function is needlessly commented
#     x
# }

length(attributes(f2))
# [1] 0
f2
# function (x) 
# {
#     x
# }
于 2013-04-09T20:51:39.193 回答
4

我只是想出了一个编译函数（包compiler）具有的属性，该属性不适用于attributesor str。这是bytecode.

例子：

require(compiler)

f <- function(x){ y <- 0; for(i in 1:length(x)) y <- y + x[i]; y }

g <- cmpfun(f)

结果是：

> print(f, useSource=FALSE)
function (x) 
{
    y <- 0
    for (i in 1:length(x)) y <- y + x[i]
    y
}

> print(g, useSource=FALSE)
function (x) 
{
    y <- 0
    for (i in 1:length(x)) y <- y + x[i]
    y
}
<bytecode: 0x0000000010eb29e0>

但是，这不会显示在普通命令中：

> identical(f, g)
[1] TRUE
> identical(f, g, ignore.bytecode=FALSE)
[1] FALSE
> identical(body(f), body(g), ignore.bytecode=FALSE)
[1] TRUE
> identical(attributes(f), attributes(g), ignore.bytecode=FALSE)
[1] TRUE

它似乎只能通过以下方式访问.Internal(bodyCode(...))：

> .Internal(bodyCode(f))
{
    y <- 0
    for (i in 1:length(x)) y <- y + x[i]
    y
}

> .Internal(bodyCode(g))
<bytecode: 0x0000000010eb29e0>
于 2013-04-16T16:24:22.487 回答