RMarkdown中统一设置工作目录，解决路径一致性问题

核心解决思路是统一以项目根目录作为所有路径的基准，不管是调用脚本还是读取文件内容，都用根目录出发的相对路径，彻底解决路径混乱的问题。

方法一：用here包（推荐） #

here包会自动识别项目根目录（基于项目里的.Rproj、.git等标记），不用手动计算相对路径，非常省心：

1. 先安装并加载包：

# 首次使用请安装
if (!requireNamespace("here", quietly = TRUE)) {
  install.packages("here")
}
library(here)

2. 调用Scripts里的脚本：

source(here("Scripts", "your_script.R"))

3. 读取脚本代码并展示：

script_content <- readLines(here("Scripts", "your_script.R"))
# 用cat输出保持代码格式
cat(paste(script_content, collapse = "\n"), "\n")

方法二：手动定义根目录路径 #

如果不想额外装包，也可以手动把根目录路径存成变量，所有路径都基于这个变量拼接：

1. 在setup代码块里定义根目录：

root_dir <- normalizePath("..") # 因为你的Rmd在Report文件夹，".."就是项目根目录

2. 调用脚本：

source(file.path(root_dir, "Scripts", "your_script.R"))

3. 读取脚本代码：

script_content <- readLines(file.path(root_dir, "Scripts", "your_script.R"))
cat(paste(script_content, collapse = "\n"), "\n")

为什么之前会出现路径不一致？ #

knitr::opts_knit$set(root.dir)是设置knitr执行代码块时的工作目录，但readLines这类函数有时会优先参考当前R会话的工作目录，或者受Rmd文件所在位置的影响，导致路径基准不统一。用统一的根目录路径拼接就能彻底规避这个问题。

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