如何在Rmarkdown中获取绝对路径，解决跨目录运行的路径问题？

方法1：使用here包（推荐） #

here包会自动识别项目根目录（基于项目内的.Rproj、.git等标识文件），无论你在项目的哪个子目录运行Rmd脚本，都能准确定位到目标文件，完全规避相对路径失效的问题。

操作步骤：

1. 安装并加载包：

install.packages("here")
library(here)

2. 定义目标脚本的路径变量，直接以项目根目录为起点构建路径：

lib_script_path <- here("lib", "script.R")

3. 在代码块中调用脚本：

source(lib_script_path)

方法2：手动定义绝对路径变量 #

如果不想引入额外包，可以手动将lib目录的绝对路径存入变量，用file.path兼容不同系统的路径格式：

# Windows系统示例
lib_root <- "C:/your-project-root/lib"
# Mac/Linux系统示例
lib_root <- "/home/you/your-project-root/lib"

# 构建目标脚本路径
lib_script_path <- file.path(lib_root, "script.R")
source(lib_script_path)

缺点是更换设备时需要手动修改变量值，灵活性不如here包。

方法3：动态推导路径 #

通过获取当前Rmd文件的绝对路径，反向推导lib目录的位置：

# 获取当前Rmd文件的路径（RStudio环境下可用）
current_rmd_path <- rstudioapi::getSourceEditorContext()$path
# 或者通过rmarkdown元数据获取
current_rmd_path <- rmarkdown::metadata$output_file

# 获取Rmd所在目录
current_dir <- dirname(current_rmd_path)

# 根据Rmd位置推导lib路径（比如从test/目录回退3级到根目录）
lib_script_path <- file.path(current_dir, "../../../lib/script.R")
source(lib_script_path)

该方案无需额外包，但依赖RStudio环境或rmarkdown元数据，兼容性略有限。

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