在 Rmarkdown 块内循环渲染图像

Question

我在一个文件夹中有一堆预先保存的图。 我有一个 Rmarkdown(Flexdashboard) 循环这个文件夹并以这种方式在每个选项卡上显示一张图片（一个例子只取一个）

```{r ,results="asis"}

list_plots <- list.files(plots_folder,pattern = ".png", full.names = TRUE)


  cat("  \n###",  "Tab Name  \n")
  knitr::include_graphics(list_plots[1])
  cat("  \n")

```

这完美无缺。我的问题是使用循环时。选项卡已渲染，但内部没有绘图。这样：

```{r ,results="asis"}
list_plots <- list.files(plots_folder,pattern = ".png", full.names = TRUE)

for(i in plots) {
  cat("  \n###",  "tab name  \n")
  knitr::include_graphics(i)
  cat("  \n")
}
```

Answer 1

与this 类似，我将在此处放置flexdashboard 的完全可重现的代码：

---
title: "Test"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
```

```{r create plots}
# reproducible example
tmp <- tempdir()
x <- lapply(5:10, function(x){
  png(file.path(tmp, paste0(x,".png")))
  plot(seq(x))
  dev.off()
})
```


```{r, results='asis'}
list_plots <- list.files(tmp, pattern = ".png", full.names = TRUE)

for(i in list_plots) {
  cat(sprintf("\n### tab name\n![](%s)\n", i))
}
```