如何通过Shiny应用导出含交互式绘图的RMarkdown为静态HTML报告？

问题背景 #

我开发了一份包含交互式绘图的RMarkdown报告（report.Rmd），希望通过Shiny应用的滑块选择绘图参数bw_adjust，将内容导出为静态HTML报告。但在不同R版本下遇到两个问题：

• R 4.2.3（个人电脑）：能成功生成report.html，但报告中没有绘图内容
• R 4.0.4（办公电脑）：无法生成输出，报错信息为：Error in : path for html_dependency not provided [No stack trace available]

原代码展示 #

1. report.Rmd 原代码 #

---title: Report
runtime: shiny
output: html_document
---

# 1. Here the report.rmd

sliderInput("bw_adjust", label = "Bandwidth adjustment:",
              min = 0.2, max = 2, value = 1, step = 0.2)


renderPlot({
  dens <- density(faithful$eruptions, adjust = input$bw_adjust)
  plot(dens, col = "blue")
})

2. Shiny应用原代码 #

# 2. And here my app

library(shiny)

shinyApp(
  ui = fluidPage(
    sliderInput(
      "bw_adjust",
      label = "Bandwidth adjustment:",
      min = 0.2,
      max = 2,
      value = 1,
      step = 0.2
    ),
    downloadButton("report", "Generate report")
  ),
  server = function(input, output) {
    output$report <- downloadHandler(
      # For PDF output, change this to "report.pdf"
      filename = "report.html",
      content = function(file) {
        rmarkdown::render("report.Rmd", output_file = file)
      }
    )
  }
)

问题根源 #

1. 无绘图问题：原report.Rmd使用了runtime: shiny，这是用于生成交互式Shiny文档的配置。当用rmarkdown::render导出静态HTML时，文档中的renderPlot依赖Shiny服务器上下文才能执行，静态导出时没有这个环境，所以绘图不会生成。
2. 版本兼容报错：旧版本R（4.0.4）对应的rmarkdown和shiny包对runtime: shiny文档的静态导出支持不完善，导致依赖路径解析失败。

修复方案 #

核心思路是使用参数化RMarkdown报告，将Shiny应用的输入参数传递给RMarkdown，直接生成静态绘图，而非在Rmd中嵌入Shiny组件。

1. 修改后的report.Rmd #

---
title: Report
output: html_document
params:
  bw_adjust: 1  # 默认参数值
---

# 1. 报告内容

```{r, echo=FALSE}
# 使用params接收从Shiny传递过来的参数
dens <- density(faithful$eruptions, adjust = params$bw_adjust)
plot(dens, col = "blue")

### 2. 修改后的Shiny应用代码
```r
library(shiny)

shinyApp(
  ui = fluidPage(
    sliderInput(
      "bw_adjust",
      label = "带宽调整值:",
      min = 0.2,
      max = 2,
      value = 1,
      step = 0.2
    ),
    downloadButton("report", "生成报告")
  ),
  server = function(input, output) {
    output$report <- downloadHandler(
      filename = "report.html",
      content = function(file) {
        # 将Shiny的输入参数传递给RMarkdown
        rmarkdown::render(
          input = "report.Rmd",
          output_file = file,
          params = list(bw_adjust = input$bw_adjust)
        )
      }
    )
  }
)

修复效果 #

• 在R 4.2.3中：生成的静态HTML报告将包含根据所选参数绘制的密度图
• 在R 4.0.4中：不再出现依赖路径错误，能正常生成带绘图的静态报告

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