如何查找使用基础包函数的R贡献包及CRAN上调用graphics::locator()的包？

一、用R基础包工具查找已安装贡献包中的调用情况 #

借助utils和tools包（均属于R核心基础包集合），可以检查已安装的贡献包是否调用了目标函数：

1. 核心思路：遍历已安装包，提取包内引用的全局函数，匹配目标函数
2. 示例代码（以查找调用graphics::locator()的包为例）：

# 定义目标函数信息
target_func <- "locator"
target_namespace <- "graphics"

# 获取所有已安装的非基础包
installed_non_base <- setdiff(installed.packages()[, "Package"], .packages(TRUE))

# 遍历检查
matching_pkgs <- c()
for(pkg in installed_non_base) {
  # 捕获可能的错误（如包加载失败）
  pkg_globals <- tryCatch(tools::findGlobals(asNamespace(pkg), merge = FALSE), 
                          error = function(e) NULL)
  if(!is.null(pkg_globals)) {
    # 检查是否直接调用目标函数（含命名空间或不含的情况）
    func_matches <- paste0(target_namespace, "::", target_func) %in% pkg_globals$functions
    func_matches <- func_matches || target_func %in% pkg_globals$functions
    if(func_matches) {
      matching_pkgs <- c(matching_pkgs, pkg)
    }
  }
}

# 输出结果
print(matching_pkgs)

二、查询CRAN上所有调用graphics::locator()的包 #

要覆盖CRAN上所有包（无论是否本地安装），可以通过下载源码包并解析代码实现，同样基于基础包工具：

1. 核心思路：批量下载CRAN包源码，解压后扫描R代码文件中的函数调用
2. 示例代码：

# 设置CRAN镜像
options(repos = c(CRAN = "https://cloud.r-project.org/"))

# 获取CRAN上所有包列表
cran_pkgs <- available.packages()[, "Package"]
temp_dir <- tempdir() # 临时目录用于存放源码
target_patterns <- c("graphics::locator", "locator\\(") # 匹配两种调用形式

matching_cran_pkgs <- c()
for(pkg in cran_pkgs) {
  tryCatch({
    # 下载源码包
    src_path <- download.packages(pkg, destdir = temp_dir, type = "source")[1, 2]
    # 解压源码
    untar(src_path, exdir = temp_dir)
    # 获取包内的R代码文件
    r_code_files <- list.files(file.path(temp_dir, pkg, "R"), 
                               pattern = "\\.R$", full.names = TRUE)
    if(length(r_code_files) == 0) next
    # 读取所有代码内容
    full_code <- paste(sapply(r_code_files, readLines, warn = FALSE), collapse = "\n")
    # 检查是否匹配目标函数调用
    if(any(sapply(target_patterns, function(p) grepl(p, full_code, fixed = FALSE)))) {
      matching_cran_pkgs <- c(matching_cran_pkgs, pkg)
    }
    # 清理临时文件
    unlink(file.path(temp_dir, pkg), recursive = TRUE)
    file.remove(src_path)
  }, error = function(e) next)
}

# 输出结果
print(matching_cran_pkgs)

注意事项 #

• 上述代码可能会匹配注释中的函数名，若需要更精准的结果，可以添加逻辑过滤注释行（比如匹配以#开头的行并排除）
• 下载所有CRAN包源码耗时较长且占用带宽，建议按需分批处理
• 部分包可能通过非直接调用的方式使用目标函数（如do.call），这种情况上述方法无法捕获，需要更复杂的静态代码分析

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