如何通过初始化脚本配置R全局环境供多命令行脚本共享？

好问题！你遇到的核心痛点其实是每个Rscript命令都会启动一个独立的R进程，进程结束后环境就销毁了，所以单独运行init.R再跑业务脚本根本没法共享环境。不过这个需求完全可以实现，核心思路就是让所有脚本在同一个R进程里执行，这样初始化的环境就能复用了，比save.image()/load()高效太多。

下面给你几个实用的方案，附具体例子：

方案1：写一个「主脚本」串联所有任务 #

这是最直观也最易维护的方式——写一个主脚本，先加载初始化逻辑，再依次调用业务脚本。

示例文件结构 #

你的工作目录/
├─ init.R          # 初始化脚本（加载包、自定义函数）
├─ my_functions.R  # 自定义函数文件
├─ my.script.R     # 业务脚本1
└─ main.R          # 主脚本（串联所有步骤）

具体代码 #

• init.R内容：

# 加载依赖包
library(dplyr)
# 加载自定义函数
source("my_functions.R")
# 设置全局配置（可选）
global_settings <- list(input_dir = "./data/", output_dir = "./results/")

• my_functions.R内容：

# 自定义工具函数
compute_median <- function(x) {
  median(x, na.rm = TRUE)
}

• my.script.R内容：

# 直接复用init里的包、函数和全局变量
raw_data <- read.csv(paste0(global_settings$input_dir, "sample_data.csv"))
clean_data <- raw_data %>% filter(!is.na(value))
result <- compute_median(clean_data$value)
write.csv(data.frame(median_value = result), paste0(global_settings$output_dir, "median_result.csv"), row.names = FALSE)

• main.R内容：

# 第一步：初始化环境
source("init.R")
# 第二步：运行业务脚本（可以加多个）
source("my.script.R")
# 如果有更多脚本，继续添加source即可
# source("another_script.R")

命令行运行 #

直接执行主脚本就行：

Rscript main.R

这样所有脚本都在同一个R进程里运行，init.R加载的包、函数和变量会一直存在，完全不用重复加载，效率拉满。

方案2：命令行直接串联脚本（无需主脚本） #

如果不想额外写主脚本，可以在命令行用-e参数直接执行串联的source命令：

Rscript -e 'source("init.R"); source("my.script.R")'

多个脚本用分号分隔就行，本质和方案1一样，都是在同一个进程里执行。

方案3：Shell进程替换（临时场景用） #

如果是临时测试，还可以用Shell的进程替换功能，把串联命令临时生成一个文件传给Rscript：

Rscript --file=<(echo 'source("init.R"); source("my.script.R")')

这个方法适合不想存主脚本的一次性场景。

注意事项 #

• 脚本路径要准确：如果init.R或业务脚本不在当前工作目录，记得用绝对路径或者相对路径（比如source("../scripts/init.R")）。
• 控制执行顺序：主脚本里的source顺序就是脚本的运行顺序，要确保依赖关系正确。
• 参数传递：如果需要给业务脚本传参数，可以在主脚本里用commandArgs()接收命令行参数，再传递给业务脚本的函数或变量。

为什么save.image()/load()效率低？因为它需要把整个环境序列化到磁盘再读回来，而同一个进程里的source是直接在内存中复用环境，完全没有磁盘IO开销，自然高效很多。

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