在线部署Shiny App后，R-Markdown生成的.html文件无法下载怎么办？

开发一款用于期末考年度报告标准化的Shiny应用，支持上传Excel文件、设置参数，生成R-Markdown格式的HTML报告，实现预览与本地下载功能。当前代码运行时存在以下问题：

• 本地运行：报告生成在C盘临时文件夹，但无法预览，下载按钮失效
• 部署至shinyapps.io：进度条完成，但下载按钮下载的是应用界面而非报告，报告已在服务器临时文件夹生成但无法预览与下载

1. 预览功能：直接使用临时文件绝对路径作为iframe的src，Shiny无法访问本地/沙箱环境中的私有临时文件路径
2. 下载功能：使用observeEvent处理下载按钮不符合Shiny规范，需使用内置的downloadHandler实现文件下载逻辑
3. 输入校验：缺少必要的输入检查，空值可能导致报告生成失败
4. 按钮状态：未控制下载按钮的启用/禁用状态，用户可能在报告未生成时误操作

library(shiny)
library(readxl)
library(ggplot2)   
library(car)      
library(huxtable)
library(dplyr)
library(knitr)
library(htmlwidgets)
library(ape)
library(kableExtra)
library(plotly)
library(broom)
library(rstatix)
library(corrplot)
library(matrixcalc)
library(tidyverse)
library(fmsb)
library(ggradar)
library(ggiraphExtra)
library(psych)
library(DT)
library(stringr)
library(shinyjs)

# UI
ui <- fluidPage(
  useShinyjs(),
  titlePanel("Exam statistics tool"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file", "Upload your file"),
      textInput("year", "Year", ""),
      textInput("season", "Season", ""),
      textInput("center", "Center", ""),
      textInput("school", "School", ""),
      textInput("level", "Level", ""),
      textInput("subj", "Subject", ""),
      actionButton("generate", "Generate Report"),
      downloadButton("download", "Download Report", disabled = TRUE)
    ),
    mainPanel(
      uiOutput("preview")
    )
  )
)

# Server
server <- function(input, output, session) {
  # Reactive values
  rv <- reactiveValues(
    excelData = NULL,
    reportPath = NULL,
    reportContent = NULL
  )
  
  observeEvent(input$file, {
    rv$excelData <- readxl::read_excel(input$file$datapath)
  })
  
  observeEvent(input$generate, {
    # 校验必要输入
    req(rv$excelData, input$year, input$season, input$center, 
        input$school, input$level, input$subj)
    
    withProgress(message = "Generating report...", value = 0, {
      # 渲染R Markdown报告
      tempPath <- rmarkdown::render(
        input = "report/VPREP_9.Rmd",
        output_format = "html_document",
        output_file = tempfile(fileext = ".html"),
        params = list(
          year = input$year,
          season = input$season,
          center = input$center,
          school = input$school,
          level = input$level,
          subj = input$subj,
          data = rv$excelData
        )
      )
      
      # 读取报告内容用于预览
      rv$reportContent <- readLines(tempPath, warn = FALSE)
      rv$reportPath <- tempPath
      
      # 启用下载按钮
      shinyjs::enable("download")
      incProgress(1, detail = "Report generated!")
    })
  })
  
  # 报告预览：直接渲染HTML内容
  output$preview <- renderUI({
    req(rv$reportContent)
    HTML(paste(rv$reportContent, collapse = "\n"))
  })
  
  # 标准下载逻辑实现
  output$download <- downloadHandler(
    filename = function() {
      paste0("Exam_Report_", input$year, "_", input$subj, ".html")
    },
    content = function(file) {
      req(rv$reportPath)
      file.copy(rv$reportPath, file)
    }
  )
}

app <- shinyApp(ui, server)

• 预览功能：放弃iframe加载临时文件的方式，改为读取报告HTML内容并直接用HTML()渲染，避开路径访问限制
• 下载功能：使用Shiny官方推荐的downloadHandler实现文件下载，自动处理本地/服务器环境的文件传递逻辑
• 输入校验：添加req()函数确保所有必要输入存在后才生成报告，避免空值报错
• 按钮控制：使用shinyjs实现下载按钮的禁用/启用，只有报告生成后才可点击下载
• 数据传递：在rmarkdown::render的params中直接传递上传的数据，需确保VPREP_9.Rmd中通过params$data接收数据
• 环境适配：所有文件操作使用系统临时文件，完全适配shinyapps.io的沙箱环境，无需手动处理文件路径

内容的提问来源于stack exchange，提问作者Bálint L. Tóth