如何解决R脚本调用子目录脚本时的工作目录异常问题？

核心问题 #

你遇到的问题根源是getActiveDocumentContext()返回的是当前激活的编辑器文档路径（也就是你正在编辑的Main.R），而不是被source调用的Part1.R的实际路径，导致工作目录切换错误。

推荐解决方案：获取脚本自身的真实路径（不依赖激活文档） #

直接在Part1.R中获取自身的文件路径，以此为基准计算目标Excel文件的位置，完全不需要硬编码，也不依赖工作目录切换。

方案1（RStudio环境下稳定）

替换Part1.R中的路径相关代码为：

# 获取当前脚本（Part1.R）的绝对路径
script_path <- rstudioapi::getSourceEditorContext()$path
# 得到脚本所在的目录（Main/SubFolder/）
script_dir <- dirname(script_path)
# 计算Main目录路径（SubFolder的上级目录）
main_dir <- dirname(script_dir)
# 拼接Excel文件的完整路径
excel_path <- file.path(main_dir, "Input", "Excel.xlsx")

# 直接读取文件，无需修改工作目录
library(readxl)
data <- read_excel(excel_path)

方案2（兼容非RStudio环境）

如果需要在非RStudio环境运行，用sys.frame()获取被source的脚本路径，搭配判断兼容直接运行的场景：

# 优先获取被source的脚本路径
if (!is.null(sys.frame(1)$ofile)) {
  script_path <- sys.frame(1)$ofile
} else {
  # 直接运行脚本时，用RStudio API获取路径
  script_path <- rstudioapi::getSourceEditorContext()$path
}

script_dir <- dirname(script_path)
main_dir <- dirname(script_dir)
excel_path <- file.path(main_dir, "Input", "Excel.xlsx")

data <- readxl::read_excel(excel_path)

备选方案：调用source时指定chdir参数 #

在Main.R中调用source时添加chdir=TRUE，这样执行Part1.R时会自动切换到它所在的目录：

# Main.R中的调用代码
source("SubFolder/Part1.R", chdir = TRUE)

此时Part1.R中的代码可以简化为：

# 当前工作目录是Main/SubFolder/，上级目录就是Main
main_dir <- file.path(getwd(), "..")
excel_path <- file.path(main_dir, "Input", "Excel.xlsx")
data <- readxl::read_excel(excel_path)

注意：这个方案依赖调用方的设置，如果后续调用方式改变（比如从其他目录source），可能再次出错，不如前一种方案可靠。

最佳实践：避免修改全局工作目录 #

修改工作目录（setwd()）容易导致全局环境的路径混乱，尤其是在多个脚本交互调用时。直接通过脚本自身路径计算目标文件的绝对路径，是更安全、更可维护的做法——这也是上面推荐方案的核心思路。

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