如何从环境字符串获取环境对象？兼谈environmentName机制

基础问题：environmentName究竟如何工作？ #

environmentName返回的是环境的绑定名称，而非内存地址哈希值。只有当环境被显式命名绑定（比如全局环境R_GlobalEnv、包环境如package:base），或者通过attach()附加到搜索路径且指定了自定义名称时，才会返回非空字符串。

普通函数执行时生成的临时环境、手动创建但未命名绑定的环境，默认没有关联的绑定名称，因此environmentName返回空字符串。你看到的<environment: 0x000001fec97c3eb0>是环境对象的打印格式，显示的是内存地址，这和environmentName的返回值是完全不同的概念。

核心问题：是否存在反转environmentName逻辑的函数？ #

R没有内置的直接反向函数，但可以根据场景实现对应的转换逻辑：

1. 系统预设命名环境（如全局环境、包环境） #

直接使用as.environment()即可转换：

# 获取全局环境
as.environment("R_GlobalEnv")
# 获取base包的环境
as.environment("package:base")

2. 自定义实现反向函数 #

如果需要覆盖系统环境、搜索路径中的附加环境，可以编写如下函数：

env.fromName <- function(envirstr) {
  # 先尝试匹配系统预设环境
  tryCatch({
    return(as.environment(envirstr))
  }, error = function(e) {})
  
  # 遍历搜索路径，匹配附加的环境
  for (path in search()) {
    if (path == envirstr) {
      return(as.environment(path))
    }
  }
  
  # 未找到时抛出错误
  stop(sprintf("未找到名称为'%s'的环境", envirstr))
}

3. 给自定义环境绑定名称 #

如果是自己创建的环境，建议手动给它绑定名称，这样environmentName能返回有效名称，反向查找也更方便：

# 方式1：通过assign绑定到全局环境的命名
myenv <- new.env()
assign("my_custom_env", myenv, envir = globalenv())
environmentName(myenv) # 返回"my_custom_env"

# 方式2：直接设置环境的name属性
myenv2 <- new.env()
attr(myenv2, "name") <- "my_second_env"

内容的提问来源于stack exchange，提问作者mshaffer