如何自动将R语言函数调用转换为双冒号(::)表示法？

一、批量替换函数调用为package::function格式 #

可以写个R脚本遍历R包R/目录下的所有文件，用正则匹配批量替换外部函数调用，步骤如下：

1. 先整理你用到的外部函数与对应包的映射表，示例：

func_map <- list(
  dplyr = c("filter", "mutate", "select"),
  ggplot2 = c("ggplot", "aes", "geom_point"),
  tidyr = c("pivot_longer", "drop_na")
)

2. 编写遍历替换的脚本：

# 获取R目录下所有.R文件
r_files <- list.files("R", pattern = "\\.R$", full.names = TRUE)

# 遍历每个文件进行替换
for (file in r_files) {
  content <- readLines(file)
  
  # 遍历每个包的函数列表
  for (pkg in names(func_map)) {
    funcs <- func_map[[pkg]]
    for (func in funcs) {
      # 正则匹配函数调用（避免替换函数定义或字符串中的内容）
      pattern <- paste0("\\b", func, "\\(")
      replacement <- paste0(pkg, "::", func, "(")
      content <- gsub(pattern, replacement, content, perl = TRUE)
    }
  }
  
  # 写回文件
  writeLines(content, file)
}

注意：运行前务必备份文件！正则匹配可能存在误替换（比如你自己写了同名函数），建议先在少量测试文件上验证效果，或者结合codetools::findGlobals()先识别真正的外部函数。

二、自动生成@importFrom标签 #

如果更倾向于用roxygen2的导入声明而非::调用，可以用以下工具简化操作：

1. 用codetools识别依赖函数
   先找出每个R文件里用到的外部函数：

library(codetools)

get_external_funcs <- function(file_path) {
  env <- new.env()
  sys.source(file_path, envir = env)
  funcs <- findGlobals(env[[ls(env)[1]]], merge = FALSE)$functions
  # 排除base包的函数
  base_funcs <- ls(baseenv())
  setdiff(funcs, base_funcs)
}

# 遍历文件获取所有外部函数
all_external <- lapply(r_files, get_external_funcs)
names(all_external) <- basename(r_files)

2. 批量添加@importFrom注释
   结合usethis包的use_import_from()函数，批量生成导入声明：

library(usethis)

# 结合之前的func_map批量导入
for (pkg in names(func_map)) {
  for (func in func_map[[pkg]]) {
    use_import_from(pkg, func)
  }
}

运行后，usethis会自动在对应函数的文件头部添加#' @importFrom package function注释，之后执行devtools::document()就能自动更新NAMESPACE文件。

3. 更智能的工具：attachment包
   attachment包可以自动扫描你的包依赖，直接生成对应的导入声明：

library(attachment)

# 扫描包依赖并更新DESCRIPTION
att_amend_desc()
# 自动添加roxygen2导入注释到对应函数头部
att_roxygenize()

这个工具会自动识别你用到的外部包和函数，无需手动整理映射表，非常省心。

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