R包内部共享可修改参数对象的实现问题求助

你的问题核心在于列表是值传递类型，当你在test_function里修改INTERNAL$a时，R实际上是在函数的局部环境中创建了一个INTERNAL列表的副本，修改的只是这个副本，而非包内部存储的原始INTERNAL对象。这就是为什么second_function仍然读取到原始值2的原因。

下面给你几种可行的解决方案，按推荐程度排序：

方法一：使用环境对象替代列表（最推荐） #

环境（environment）是R中的引用类型，对环境内变量的修改会直接作用于原环境，不会产生副本。步骤如下：

1. 重新定义内部存储的INTERNAL：
   不再用列表，而是创建一个环境并保存到sysdata.rda：

   # 在包的开发环境中执行，然后保存到sysdata.rda
   INTERNAL <- new.env()
   INTERNAL$a <- 2
   save(INTERNAL, file = "R/sysdata.rda")
   

2. 修改包内函数：
   因为环境是引用类型，直接修改环境中的变量即可：

   test_function <- function(b) { 
     INTERNAL$a <- b 
     print(as.list(INTERNAL))  # 转成列表方便打印查看
     second_function() 
   } 
   
   second_function <- function() { 
     print(INTERNAL$a) 
   }
   

   现在运行test_function(5)，输出会是：

   $a
   [1] 5
   [1] 5
   

   完美符合你的需求。

方法二：显式操作包的命名空间 #

如果你坚持使用列表，可以通过assign和get函数直接操作包的命名空间，修改原始的INTERNAL对象：

test_function <- function(b) { 
  # 从包命名空间获取原始列表，修改后再存回去
  current_internal <- get("INTERNAL", envir = asNamespace("Test"))
  current_internal$a <- b
  assign("INTERNAL", current_internal, envir = asNamespace("Test"))
  
  print(get("INTERNAL", envir = asNamespace("Test"))) 
  second_function() 
} 

second_function <- function() { 
  print(get("INTERNAL", envir = asNamespace("Test"))$a) 
}

这种方法需要显式指定命名空间，代码相对繁琐，不如环境对象直观。

方法三：使用R全局选项存储参数 #

你也可以把参数存在R的全局选项中，这样用户和包内函数都能轻松访问和修改：

1. 在包加载时初始化选项：
   在包的R目录下添加.onLoad函数：

   .onLoad <- function(libname, pkgname) {
     # 初始化选项，避免未定义的情况
     if (is.null(getOption("Test.INTERNAL"))) {
       options(Test.INTERNAL = list(a = 2))
     }
   }
   

2. 修改包内函数：

   test_function <- function(b) { 
     current_opt <- getOption("Test.INTERNAL")
     current_opt$a <- b
     options(Test.INTERNAL = current_opt)
     
     print(getOption("Test.INTERNAL")) 
     second_function() 
   } 
   
   second_function <- function() { 
     print(getOption("Test.INTERNAL")$a) 
   }
   

   这种方法的额外好处是，用户可以直接通过options(Test.INTERNAL = list(a = 3))来修改参数，不需要调用包内的函数。

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