如何在Shiny App中通过system2调用指定路径的外部R脚本？

问题根源 #

Shiny App运行时的工作目录不一定是你主App脚本所在的目录，直接用相对路径拼接的脚本路径，实际指向的位置可能和你预期不符，导致找不到文件。

正确调用方案 #

1. 用绝对路径调用（最稳妥） #

先获取主App脚本的绝对目录，再拼接外部脚本的完整路径，同时用shQuote()处理路径避免空格或特殊字符干扰：

# 本地开发时，获取当前主App脚本的绝对目录
app_dir <- dirname(rstudioapi::getSourceEditorContext()$path)

# 若部署到Shiny Server/Posit Connect，改用以下方式获取App目录
# app_dir <- shiny::getShinyOption("appDir")

# 拼接外部脚本的绝对路径
script_full_path <- file.path(app_dir, "new_path", "external_script.r")

# 执行调用
system2(command = "RScript", args = c("--vanilla", shQuote(script_full_path)), wait = FALSE)

2. 切换工作目录后调用 #

如果偏好相对路径，可以先切换到外部脚本所在目录，执行后再恢复原工作目录：

# 保存当前工作目录，防止影响其他逻辑
original_wd <- getwd()
on.exit(setwd(original_wd))

# 切换到目标脚本所在目录
setwd(file.path(app_dir, "new_path"))

# 调用脚本
system2(command = "RScript", args = c("--vanilla", "external_script.r"), wait = FALSE)

3. 调试路径有效性 #

调用前先验证路径是否存在，方便快速排查问题：

script_path <- file.path("new_path", "external_script.r")
if (!file.exists(script_path)) {
  stop(paste("找不到脚本文件：", script_path))
}
# 打印实际绝对路径，确认指向位置
cat("脚本实际路径：", normalizePath(script_path, mustWork = FALSE), "\n")

注意事项 #

• 部署环境（如Shiny Server）的工作目录和本地开发时不同，必须用绝对路径才能稳定运行。
• 注意文件名大小写：Linux/macOS系统区分大小写，确保脚本文件名external_script.r或external_script.R和代码中一致。

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