R:函数——显示环境名称而不是该环境的内存地址？

Question

如何像内置函数一样显示函数内部的环境名称？例如，当我输入 function:mean available in base package 时，我可以将环境视为“namespace:base”。

mean

   function (x, ...) 
   UseMethod("mean")
   <bytecode: 0x0547f17c>
   **<environment: namespace:base>**

但是，当我将函数附加到新创建的环境时，在这里访问函数 (f) 内自由变量 (z) 的值，它会自动驻留在 .GlobalEnv 环境中，并且环境名称不是函数内部显示，但看到(e1)环境的内存地址“0x051abd60”。

     e1 <- new.env()
     e1$z <- 10
     f <- function(x) {
           x + z 
      }
     environment(f) = e1
     f

               function(x) {
                    x + z 
               }
               **<environment: 0x051abd60>**

为什么我会看到这种行为？为什么我不像 R 的内置函数以及各种 R 包中可用的函数那样在函数内获取我的环境名称？环境数据结构和 search() 提供的 .GlobalEnv 环境之间有区别

任何有关此行为背后动机的指示都将受到高度赞赏。

谢谢

Answer 1

您可以使用 attr 设置环境名称，如下所示:

e <- new.env()
attr(e, "name") <- "xyzzy"

environmentName(e)
## [1] "xyzzy"