当R与LaTeX文件路径不同时，如何正确处理knitr的工作目录？

针对你碰到的这个问题，最稳妥的办法是让R脚本基于自身所在路径来引用其他脚本，彻底摆脱工作目录的限制——不管是单独运行R脚本，还是从LaTeX里调用，都能正常工作。

方法1：在main.R里获取自身目录 #

在main.R的开头加这段代码，先拿到当前脚本的绝对路径，再用这个路径拼接其他脚本的位置：

# 获取当前脚本所在目录（RStudio环境下）
script_dir <- dirname(rstudioapi::getSourceEditorContext()$path)
# 非交互式运行时（比如knitr调用）的兼容处理
if (!interactive()) {
  script_dir <- dirname(sys.frame(1)$ofile)
}

# 用脚本目录定位并加载其他脚本
source(file.path(script_dir, "additional.R"))

这样不管你是在project/Rscripts/下单独跑main.R，还是从LaTeX里用source("../Rscripts/main.R")调用，都能精准找到additional.R。

方法2：用here包更省心 #

如果能安装here包，它会自动识别项目根目录（比如基于根目录的.Rproj文件），直接用相对根目录的路径引用文件就行：

1. 先在project/根目录下创建一个.Rproj文件（用RStudio创建项目就能自动生成）
2. 在main.R里这么写：

library(here)
# 基于项目根目录定位脚本
source(here("Rscripts", "additional.R"))

哪怕从LaTeX里调用main.R，here也能自动找到根目录，完全不受当前工作目录影响。

关于修改工作目录的可行性 #

虽然setwd("../Rscripts/")能临时解决问题，但不推荐的原因很实在：

• 会打乱后续代码的路径逻辑（比如LaTeX文档里如果还有读取当前目录下文件的代码，就会出错）
• 多人协作时，不同环境的路径可能不一样，容易出问题
  如果一定要用这个方法，必须记得用完恢复原来的工作目录：

original_wd <- getwd()
setwd("../Rscripts/")
source("main.R")
setwd(original_wd)

但这种做法还是有潜在风险，优先选前面两种基于脚本自身路径的方法更靠谱。

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