求助：knit_child引入含本地图片的.md文件时LaTeX图片找不到

核心问题 #

主Rmd工作目录固定为自身所在目录，用knitr::knit_child()引入子md/Rmd时，子文档中相对自身目录的图片路径无法被LaTeX识别，导致「未找到文件」错误。以下是在rmarkdown/knitr层面的可行解决方案：

方案1：自动修正子md中的图片路径（适配纯md子文档） #

直接读取子md内容，将图片的相对路径替换为相对于主Rmd的完整路径，无需切换工作目录，也不用修改子文档。

修改主文档中的代码块：

```{r rmdnotes, echo = FALSE, comment = FALSE, results = "asis"}
rmdout <- character(0)
for (rmd in params$rmd) {
  # 获取子文档所在目录（相对主Rmd的路径）
  sub_rel_dir <- dirname(rmd)
  # 读取子文档内容
  sub_content <- readLines(rmd, warn = FALSE)
  # 替换图片路径：![alt](img.png) → ![alt](子目录/img.png)
  sub_content <- gsub(
    pattern = "!\\[(.*?)\\]\\(([^/\\\\]+\\.(png|jpg|jpeg|gif))\\)",
    replacement = paste0("![\\1](", sub_rel_dir, "/\\2)"),
    x = sub_content,
    perl = TRUE
  )
  # 收集处理后的内容
  rmdout <- c(rmdout, paste(sub_content, collapse = "\n"))
}
cat(rmdout, sep = "\n\n")

- 正则表达式匹配所有不带路径的图片文件名，自动补全子文档目录前缀
- 支持任意数量、任意名称的图片，无需提前知晓文件名

---

## 方案2：临时切换工作目录（适配Rmd子文档）
如果子文档是需要编译的Rmd，可在`knit_child()`执行前临时切换到子文档所在目录，处理完成后恢复原工作目录：

```r
```{r rmdnotes, echo = FALSE, comment = FALSE, results = "asis"}
rmdout <- character(0)
for (rmd in params$rmd) {
  # 保存原工作目录，确保出错也能恢复
  original_wd <- getwd()
  on.exit(setwd(original_wd), add = TRUE)
  # 切换到子文档所在目录
  setwd(dirname(normalizePath(rmd)))
  # 编译子文档
  rmdout <- c(rmdout, knitr::knit_child(basename(rmd)))
}
cat(rmdout, sep = "\n\n")

- 用`on.exit()`强制恢复原工作目录，避免环境混乱
- 子文档中的图片路径会自动适配当前工作目录，编译后生成正确路径

---

## 方案3：自动复制子文档资源（进阶场景）
若需统一管理输出资源，可结合`rmarkdown::find_external_resources()`自动识别并复制子文档的图片到主输出目录：

```r
```{r rmdnotes, echo = FALSE, comment = FALSE, results = "asis"}
rmdout <- character(0)
# 创建资源存储目录
res_dir <- "sub_resources"
dir.create(res_dir, recursive = TRUE, showWarnings = FALSE)

for (rmd in params$rmd) {
  rmd_abs <- normalizePath(rmd)
  # 查找子文档的所有外部资源
  resources <- rmarkdown::find_external_resources(rmd_abs)
  # 复制资源到统一目录
  file.copy(resources$path, res_dir, overwrite = TRUE)
  
  # 读取子文档并替换图片路径为复制后的路径
  sub_content <- readLines(rmd_abs, warn = FALSE)
  sub_content <- gsub(
    pattern = "!\\[(.*?)\\]\\(([^/\\\\]+\\.(png|jpg|jpeg|gif))\\)",
    replacement = paste0("![\\1](", res_dir, "/\\2)"),
    x = sub_content,
    perl = TRUE
  )
  rmdout <- c(rmdout, paste(sub_content, collapse = "\n"))
}
cat(rmdout, sep = "\n\n")

- 解决`find_external_resources()`在主Rmd中报错的问题：需传入子文档的绝对路径
- 适合多子文档资源分散的场景，避免路径混乱

---

## 补充说明
- 若用`knitr::knit_child()`处理纯md文件，会触发不必要的代码块解析，方案1的`readLines()`直接读取输出更高效
- 若子文档允许添加YAML，可在子文档开头添加`knitr::opts_knit$set(root.dir = dirname(knitr::current_input()))`，强制子文档使用自身目录作为工作根目录

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