如何在Shiny中用iframe嵌入可公开访问的动态渲染Rmarkdown HTML

针对你遇到的Posit Cloud文件URL需要登录、无法公开访问的问题，提供以下几种可行的解决思路：

思路1：利用Shiny内置的静态文件服务（www目录） #

Shiny默认会将应用根目录下的www文件夹作为静态资源目录，里面的文件可以直接通过相对路径公开访问，无需登录。你可以将渲染后的HTML文件输出到这个目录，并使用相对路径作为iframe的源地址。

修改server端代码如下：

server <- function(input, output) {
  
  a <- eventReactive(input$generate, {
    # 生成带日期参数的文件名，避免不同日期的报告互相覆盖
    output_file <- paste0("Reporte_seguimiento_", input$date, ".html")
    
    # 将Rmarkdown渲染到www目录
    rmarkdown::render(
      "Reporte_seguimiento110523.Rmd",
      params = list(fecha = input$date),
      output_file = output_file,
      output_dir = "www"
    )
    
    # 使用相对路径作为iframe的src
    tags$iframe(src = output_file, height=1600, width=800)
  })
  
  output$report <- renderUI({
    a()
  })
  
}

注意：需要提前在Shiny应用的根目录创建www文件夹；带日期的文件名可以确保不同参数生成的报告不会互相覆盖。

思路2：临时文件+自定义资源路径映射 #

如果不想在www目录下留存大量历史报告，可以使用临时目录存储渲染后的文件，再通过addResourcePath将临时目录映射为可访问的URL路径。

修改server端代码如下：

server <- function(input, output) {
  # 创建临时目录并映射为可访问的资源路径
  temp_report_dir <- tempdir()
  addResourcePath("temp_reports", temp_report_dir)
  
  a <- eventReactive(input$generate, {
    output_file <- paste0("Reporte_seguimiento_", input$date, ".html")
    
    rmarkdown::render(
      "Reporte_seguimiento110523.Rmd",
      params = list(fecha = input$date),
      output_file = output_file,
      output_dir = temp_report_dir
    )
    
    # 使用映射后的路径作为iframe的src
    tags$iframe(src = paste0("temp_reports/", output_file), height=1600, width=800)
  })
  
  output$report <- renderUI({
    a()
  })
  
}

优势：临时目录的文件会在Shiny会话结束后自动清理，不会造成文件堆积；同样支持多日期参数的独立报告。

思路3：直接渲染Rmarkdown内容（替代iframe） #

如果不想使用iframe，可以直接将Rmarkdown渲染的HTML内容嵌入Shiny页面，需要注意确保DT表格的JavaScript依赖正确加载。

修改server端代码如下：

server <- function(input, output) {
  
  a <- eventReactive(input$generate, {
    # 渲染为HTML片段（避免完整HTML的头部冲突）
    html_file <- rmarkdown::render(
      "Reporte_seguimiento110523.Rmd",
      params = list(fecha = input$date),
      output_format = "html_fragment"
    )
    
    # 读取HTML内容并输出
    HTML(readLines(html_file, warn = FALSE))
  })
  
  output$report <- renderUI({
    a()
  })
  
}

补充：如果DT表格无法正常交互，需要在UI中提前引入DT的依赖，比如添加一个隐藏的DT::DTOutput组件：

ui <- fluidPage(
  # 隐藏的DT输出，用于加载依赖
  div(DT::DTOutput("dummy"), style = "display: none;"),
  # 原UI内容...
)

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