如何在R Studio中通过source()调用脚本时动态获取正确工作目录？

我在编写嵌套结构的R代码，通过source()调用其他脚本。因为文件夹结构复杂，需要用动态路径而非本地固定路径保证代码可复现，策略是固定文件夹结构让脚本自动识别自身位置，但遇到了路径识别异常的问题。

文件夹结构 #

├── 父文件夹：包含test.R文件
│   ├── ChildRMD（子文件夹）
│   │   ├── test2.R文件

文件内容 #

test.R #

# 获取当前R脚本路径
current_path <- dirname(rstudioapi::getActiveDocumentContext()$path)

setwd(current_path)

print(paste('Path in test is,',current_path))

# source(paste(current_path,'/ChildRMD/test2.R',sep=''))

test2.R #

# 获取当前R脚本路径
current_path <- dirname(rstudioapi::getActiveDocumentContext()$path)

setwd(current_path)

print(paste('Path in test2 is,',current_path))

运行结果 #

单独运行时输出符合预期 #

• 运行test.R：

[1] "Path in test is, /Users/admin/Documents/temp"

• 运行test2.R：

[1] "Path in test2 is, /Users/admin/Documents/temp/ChildRMD"

取消test.R中source注释后，运行test.R的实际输出 #

[1] "Path in test is, /Users/admin/Documents/temp"
[1] "Path in test2 is, /Users/admin/Documents/temp"

预期输出 #

[1] "Path in test is, /Users/admin/Documents/temp"
[1] "Path in test2 is, /Users/admin/Documents/temp/ChildRMD"

问题原因 #

rstudioapi::getActiveDocumentContext()的作用是获取当前在RStudio中激活的文档路径，而非正在执行的脚本路径。当从test.R里source test2.R时，RStudio的活跃文档仍然是test.R，因此test2.R调用该函数拿到的是test.R的路径，导致结果不符合预期。此外，这个方法依赖RStudio环境，脱离RStudio就会失效，不适合做可复现的动态路径方案。

解决方案 #

改用不依赖RStudio、能准确获取当前执行脚本路径的方法：

方法1：用sys.frame()直接获取脚本路径 #

将每个脚本中的路径获取代码替换为：

current_path <- dirname(sys.frame(1)$ofile)

该方法从执行环境中直接提取当前脚本的文件路径，无论单独运行还是被source调用都能正确识别。

方法2：使用rprojroot包的thisfile() #

先安装并加载包：

install.packages("rprojroot")
library(rprojroot)

再替换路径获取代码：

current_path <- dirname(thisfile())

这个方法稳定性更强，适配复杂项目结构，还能自动识别项目根目录。

方法3：用commandArgs()解析路径 #

若不想依赖额外包，可使用命令行参数提取路径：

current_path <- dirname(sub("--file=", "", commandArgs(trailingOnly = FALSE)[grep("--file=", commandArgs(trailingOnly = FALSE))]))

该方法适合在非RStudio环境（如终端）中运行脚本的场景。

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