如何将多个.R文件合并为单个.R文件？

你之前用的source()函数是用来运行R脚本的，不会把文件内容写入新文件。要合并文件内容，核心思路是读取每个.R文件的文本内容，再将所有内容合并后写入新文件，下面是两种实用方法：

方法一：基础R实现（推荐用于大型文件） #

这种方法不依赖额外包，内存占用更低，适合处理大型文件：

# 设置存放R文件的文件夹路径
folder_path <- "path_to_your_R_files_folder"

# 获取文件夹内所有.R文件的完整路径
r_files <- list.files(folder_path, pattern = "\\.R$", full.names = TRUE)

# 可选：按指定顺序排列文件（比如你提到的MN.R优先，再WBC.R）
# 如果不需要特定顺序可以跳过这一步
r_files <- c(file.path(folder_path, "MN.R"), file.path(folder_path, "WBC.R"))

# 读取每个文件内容并合并，每个文件间加空行分隔
merged_content <- lapply(r_files, readLines) %>% 
  unlist() %>% 
  paste(collapse = "\n\n")

# 将合并后的内容写入Merged.R
writeLines(merged_content, con = file.path(folder_path, "Merged.R"))

方法二：tidyverse风格实现 #

如果习惯用tidyverse的管道语法，可以用下面的代码：

library(tidyverse)

folder_path <- "path_to_your_R_files_folder"

list.files(folder_path, pattern = "\\.R$", full.names = TRUE) %>%
  # 可选：筛选并按指定顺序排列文件
  keep(str_detect(., "(MN|WBC)\\.R$")) %>% 
  arrange(match(basename(.), c("MN.R", "WBC.R"))) %>%
  # 读取所有文件内容并合并
  map(readLines) %>%
  unlist() %>%
  paste(collapse = "\n\n") %>%
  # 写入目标文件
  writeLines(con = file.path(folder_path, "Merged.R"))

注意事项 #

• 如果文件间有依赖关系（比如A文件的函数被B文件调用），一定要按依赖顺序排列文件，避免合并后运行出错
• 大型文件优先用基础R方法，避免tidyverse函数带来的额外内存开销
• 合并前可以检查文件内容，手动移除重复的library()语句或冗余代码，让合并后的文件更简洁

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