如何检查R自定义函数是否调用了全局变量？

我完全理解你想要排查自定义函数里是否存在全局变量调用的需求——这对写出健壮、可复用的R代码来说至关重要，全局变量依赖很容易导致代码行为不可预测，也不利于维护。

这里有个非常简便的方案，借助R的codetools包就能轻松实现你的需求：

步骤1：安装并加载codetools包 #

首先确保你安装了这个包，然后加载它：

install.packages("codetools")
library("codetools")

步骤2：编写检测脚本 #

下面这段代码会自动遍历你当前环境中的所有自定义函数，检测每个函数引用的全局变量，并把结果整理成一个列表：

# 获取当前环境中所有自定义函数的名称
func_names <- as.character(lsf.str())

# 创建一个列表来存储每个函数对应的全局变量
global_vars_by_func <- list()

# 遍历每个函数，检测其引用的全局变量
for (func_name in func_names) {
  global_vars_by_func[[func_name]] <- codetools::findGlobals(get(func_name), merge = FALSE)$variables
}

如何解读结果 #

运行完上面的代码后，global_vars_by_func列表中的每个元素对应一个自定义函数，元素值是该函数调用的全局变量名称向量：

• 如果是character(0)，说明这个函数没有引用任何全局变量
• 如果有具体的变量名，就说明该函数调用了对应的全局变量

示例验证 #

用你给出的示例函数来测试：

example_fun<-function(x){
  y=x*c
  return(y)
}

x=2
c=2
y=example_fun(x)

运行检测脚本后，查看结果：

> global_vars_by_func
$example_fun
[1] "c"

这就清晰提示你：example_fun函数引用了全局变量c，和你期望的警告效果一致。

批量检测的效果 #

如果你的环境中有多个自定义函数，结果会类似这样：

> global_vars_by_func
$arrange_vars
character(0)

$cal_flood_curve
[1] "..count.." "FI"        "FI_new"   

$create_Flood_CuRve
[1] "y"

$dens_GEV
character(0)

从结果里你可以快速定位哪些函数存在全局变量依赖，进而针对性地修改代码。

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