如何在RStudio中自动合并多份打开的脚本为单个整合脚本？

方法1：用rstudioapi包自动识别打开的脚本并合并 #

这个方法能直接抓取RStudio标签页里打开的目标脚本，不用手动输入文件路径：

• 先安装并加载依赖包：

install.packages("rstudioapi")
library(rstudioapi)

• 执行以下代码完成合并：

# 获取当前RStudio中打开的script1/2/3的路径
target_scripts <- rstudioapi::getDocumentContexts() |> 
  sapply(function(x) x$path) |> 
  grep(pattern = "script[1-3]\\.R", value = TRUE)

# 读取脚本内容并添加分隔注释（方便区分原脚本）
combined_content <- lapply(target_scripts, function(file) {
  c(paste0("# ==== 来自", basename(file), "的代码 ===="),
    readLines(file),
    "\n")
}) |> unlist()

# 将合并结果写入script4.R
writeLines(combined_content, con = "script4.R")

执行后，当前工作目录会生成script4.R，包含所有目标脚本的代码，且自带分隔标记。

方法2：手动指定路径合并（无需额外装包） #

如果已经知道脚本的准确路径，直接用基础R代码就能完成：

# 列出要合并的脚本路径
script_paths <- c("script1.R", "script2.R", "script3.R")

# 读取并合并内容
combined <- unlist(lapply(script_paths, function(x) {
  c(paste0("# --- ", x, " ---"), readLines(x), "\n")
}))

# 写入新文件
writeLines(combined, "script4.R")

小提示 #

• 不需要分隔注释的话，删掉代码里的paste0行即可
• 执行前确保所有目标脚本都已保存，避免读取磁盘上的旧版本

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