如何查找R包中所有使用退役sp包的代码并替换为sf包实现？

方法1：用codetools做静态函数分析 #

codetools包的findGlobals()函数可以提取单个函数里的全局引用，包括调用的其他包函数。你可以写个简单脚本遍历自己包的所有函数，筛选出引用sp包的部分：

library(codetools)
library(yourPackage) # 加载你维护的包

# 获取包内所有导出函数
pkg_funs <- ls("package:yourPackage")

# 遍历每个函数，查找sp相关引用
sp_refs <- lapply(pkg_funs, function(fun_name) {
  fun <- get(fun_name)
  globals <- findGlobals(fun)
  # 筛选出属于sp包的函数（需先加载sp）
  sp_funs <- intersect(globals, ls("package:sp"))
  if(length(sp_funs) > 0) {
    list(function = fun_name, sp_functions = sp_funs)
  }
})

# 过滤空结果，输出有效引用
Filter(Negate(is.null), sp_refs)

这个方法能抓到那些没加sp::前缀、但实际调用了sp包导出函数的代码。

方法2：批量搜索包源码文件 #

既然你已经有了sp包的导出函数列表，直接写脚本遍历包的R目录下所有.R文件，批量匹配这些函数：

# 假设你已获取sp的导出函数列表：sp_exports
sp_exports <- ls("package:sp")

# 定义包的R源码目录路径
r_dir <- file.path("path/to/your/package", "R")
r_files <- list.files(r_dir, pattern = "\\.R$", full.names = TRUE)

# 遍历每个文件，查找匹配的sp函数
matches <- lapply(r_files, function(file) {
  content <- readLines(file)
  # 用正则匹配带括号的函数调用
  pattern <- paste0("\\b(", paste(sp_exports, collapse = "|"), ")\\(")
  hits <- grep(pattern, content, value = TRUE)
  if(length(hits) > 0) {
    list(file = basename(file), lines = hits)
  }
})

# 输出结果
Filter(Negate(is.null), matches)

这个方法能覆盖源码里的直接调用（带前缀/不带前缀），还能定位到具体文件和行内容。

方法3：结合devtools做依赖检查 #

运行devtools::check()，检查报告里的「Undefined global functions or variables」部分，会列出你调用了但没在NAMESPACE里声明的函数。如果这些函数属于sp包，就是需要替换的目标。另外，也可以用devtools::load_all()加载包后，运行codetools::checkUsagePackage()做更全面的全局引用检查。

补充：处理roxygen2文档中的引用 #

roxygen2文档里如果用到了sp的函数（比如@examples里的调用、@seealso里的链接），可以用RStudio的全局搜索替换功能，直接搜索sp的函数名，或者用正则匹配\link[sp]{.*}格式的文档链接，把它们改成sf对应的函数。

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