R函数哈希问题：相同函数重定义哈希不同的原因与解决方法

我希望通过哈希R函数来检测其是否发生变更，但实验发现函数哈希并非仅取决于源代码。为何会出现这种情况？如何实现对相同函数重定义后哈希值保持一致？

以下示例中两次定义的完全相同的函数，其哈希值却不同，是否存在方法让它们的哈希值相同？

f <- function(x) {
  x + 1
}

rlang::hash(f)

f <- function(x) {
  x + 1
}

rlang::hash(f)

编辑说明：将上述代码放入单个脚本中运行，或者先定义f并查看其哈希值，调用f传入任意值后再次查看哈希值，会发现哈希值已改变。

输出结果：

> f <- function(x) {
+   x + 1
+ }

> rlang::hash(f)
[1] "47a6d286b1703564a0e61d59dec44ddf"

> f <- function(x) {
+   x + 1
+ }

> rlang::hash(f)
[1] "1a394338c31105654b138a2d8d92748c"

原因分析 #

• R中的函数对象不止包含源代码，还绑定了**环境（environment）**信息。每次重新定义函数时，即便代码完全一致，新函数的环境指针会和旧函数不同，rlang::hash()会将环境信息纳入哈希计算，最终导致哈希值差异。
• 函数被调用后，可能会触发字节码编译等内部状态变化，这也会修改函数对象的内容，进而改变哈希值。

解决方法 #

要让相同代码的函数哈希值一致，核心是只基于函数的参数定义和源代码逻辑计算哈希，忽略环境等无关信息。以下是两种可行方案：

方案1：提取函数核心代码计算哈希 #

直接提取函数的参数列表和主体代码，组合后计算哈希，完全规避环境影响：

hash_function <- function(fun) {
  # 提取函数的参数定义和主体代码
  core_code <- list(formals(fun), body(fun))
  rlang::hash(core_code)
}

# 测试验证
f <- function(x) { x + 1 }
hash_function(f) # 输出固定哈希值

f <- function(x) { x + 1 }
hash_function(f) # 与上一次输出的哈希值完全一致

方案2：统一函数的绑定环境 #

将所有目标函数的环境设置为同一个固定环境（比如基础环境baseenv()），消除环境差异对哈希的影响：

f <- function(x) { x + 1 }
environment(f) <- baseenv()
rlang::hash(f)

f <- function(x) { x + 1 }
environment(f) <- baseenv()
rlang::hash(f) # 两次哈希值完全相同

注意事项 #

• 方案1更可靠，因为它完全基于函数的逻辑代码计算哈希，不受环境变量等外部因素干扰；方案2适合需要保留函数环境特性，但希望统一环境基准的场景。
• 如果函数依赖于环境中的外部变量，方案2可能会因环境变更导致函数行为异常，使用时需谨慎评估。

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