如何通过R包内函数修改导出变量的状态？

可复现示例： #

灵感来自Hadley的R包开发书籍：

创建一个名为test的空包，包含NAMESPACE文件：

## file NAMESPACE
exportPattern("^[[:alpha:]]+")

以及R文件R/package_var.R：

## file R/package_var.R
var <- 0

change_var <- function() {
var <<- 1
}

然后构建该包。

在新的R会话中测试该包：

> library(test)
> var
0
> change_var()
Error in change_var() : 
cannot change value of locked binding for 'var'

但在该示例之后，Hadley提到：

你无法修改包命名空间中对象的绑定（当然，至少不像这样简单操作就能实现）。

Hadley所说的“更复杂的方法”具体是什么？

可行的复杂方法 #

Hadley提到的这类方法，核心是避开包命名空间的绑定锁定机制，常见的有两种实现思路：

1. 直接操作命名空间的assignInNamespace()函数
   这个函数可以直接在目标包的命名空间内部修改变量绑定，不需要依赖全局赋值的<<-操作。修改后的change_var()可以写成：

   change_var <- function() {
     assignInNamespace("var", 1, ns = "test")
   }
   

   它能直接突破绑定锁定的限制，但这种方式属于偏“hack”的操作，可能会破坏包的状态一致性，不建议在正式开发的包中使用。

2. 用内部环境存储可变状态（推荐）
   更规范的做法是在包内创建一个隐藏的私有环境，把需要变更的变量放在这个环境里，而非直接用包级变量。修改R/package_var.R的代码如下：

   # 创建一个隔离的内部环境
   .internal_env <- new.env(parent = emptyenv())
   .internal_env$var <- 0
   
   # 提供修改状态的函数
   change_var <- function() {
     .internal_env$var <- 1
   }
   
   # 提供读取状态的函数
   get_var <- function() {
     .internal_env$var
   }
   

   这种方式不需要修改命名空间的绑定，而是通过操作内部环境中的对象来实现状态变更，既避开了锁定问题，也符合包开发的最佳实践，能保证状态管理的安全性。

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