ShinyApp求助：如何将plot module绘图传递至download server生成报告

问题背景 #

需要实现从绘图模块返回绘图，传递至下载模块生成包含该绘图的HTML报告，但现有代码无法正常运行，同时对主server的配置逻辑存在疑问。

错误原因分析 #

1. 基础绘图对象未被正确捕获：原生plot()函数仅执行绘图副作用，不会返回可被传递和保存的绘图对象，需要用recordPlot()捕获当前绘图状态。
2. 文件名拼写错误：下载模块中临时文件复制时，目标文件名写成了myRport.Rmd，与源文件myReport.Rmd不一致，导致找不到模板文件。
3. Rmd中绘图渲染问题：直接调用params$plot1无法正确渲染捕获的绘图对象，需要用print()显式输出。

修正后的完整代码 #

1. 绘图模块（plot module） #

plot_ui <- function(id) {
  ns <- NS(id)
  tagList(
    plotOutput(ns("plot"))
  )
}

plot_server <- function(id) {
  moduleServer(id, function(input, output, session) {
    # 用recordPlot捕获base plot的绘图对象
    myplot <- reactive({
      plot(x = mtcars$wt, y = mtcars$mpg, main = "车重 vs 油耗")
      recordPlot()  # 捕获当前绘图状态，返回可传递的绘图对象
    })
    
    output$plot <- renderPlot({
      myplot()
    })
    
    return(myplot)  # 返回reactive类型的绘图对象
  })
}

2. 下载模块（download module） #

download_ui <- function(id) {
  ns <- NS(id)
  tagList(
    downloadButton(outputId = ns("report_button"),
                   label = "生成报告")
  )
}

download_server <- function(id, myplot) {
  moduleServer(id, function(input, output, session){
    output$report_button <- downloadHandler(
      filename = "report.html",
      content = function(file) {
        tempReport <- file.path(tempdir(), "myReport.Rmd")  # 修正文件名拼写
        file.copy("myReport.Rmd", tempReport, overwrite = TRUE)
        
        # 传递捕获的绘图对象
        params <- list(plot1 = myplot())
        
        rmarkdown::render(tempReport,
                          output_file = file,
                          params = params)
      }
    )
  })
}

3. 主应用程序 #

library(shiny)

app_ui <- function() {
  fluidPage(
    plot_ui("plot_ui_1"),
    download_ui("download_ui_2")
  )
}

app_server <- function(input, output, session) {
  # 接收绘图模块返回的reactive绘图对象
  getPlot <- plot_server("plot_ui_1")
  # 将绘图对象传递给下载模块
  download_server("download_ui_2", myplot = getPlot)
}

shinyApp(app_ui, app_server)

4. 对应的Rmd模板文件（myReport.Rmd） #

---
title: "测试报告"
output: html_document
params:
  plot1: NA
---

```{r}
# 显式打印捕获的绘图对象
print(params$plot1)

## 主server配置逻辑解释
主server的核心作用是**作为模块间的通信桥梁**：
- Shiny模块是封装独立的，模块内部的变量/对象无法直接被其他模块访问。
- 第一步：调用`plot_server()`时，会接收该模块返回的reactive类型绘图对象`getPlot`。
- 第二步：将`getPlot`作为参数传递给`download_server()`，让下载模块能够获取到绘图模块生成的绘图对象，从而实现跨模块的数据传递。

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