如何实现Shiny应用与含多文件的Markdown模板文件夹关联？

你的报错核心原因是临时目录中不存在ejemplo reporte子文件夹，file.copy函数无法自动创建目标目录，导致无法将Rmd文件复制到指定路径。以下是具体的修复方案：

修复步骤 #

• 复制文件前先创建目标目录：使用dir.create并设置recursive = TRUE，确保多级目录能被自动创建
• 修正源文件路径：你的Rmd文件实际在项目的ejemplo reporte文件夹下，源路径要对应正确
• 同步模板依赖：如果Markdown报告依赖文件夹内的其他组件（如CSS、图片、HTML模板），需要把整个ejemplo reporte文件夹复制到临时目录，避免渲染时找不到资源

修改后的完整代码 #

shinyApp(
  ui = fluidPage(
    add_busy_spinner(spin = "cube-grid"),
    sliderInput("slider", "Slider", 1, 100, 50),
    numericInput("perro", "perro", value = 4, min = 1, max = 10),
    downloadButton("report", "Generate report")
  ),
  server = function(input, output) {
    output$report <- downloadHandler(
      filename = "report.pdf",
      content = function(file) {
        # 定义临时目录下的目标文件夹路径
        temp_dir <- file.path(tempdir(), "ejemplo reporte")
        # 创建目标文件夹（如果不存在）
        dir.create(temp_dir, recursive = TRUE, showWarnings = FALSE)
        
        # 定义源Rmd文件路径和目标路径
        source_rmd <- file.path("ejemplo reporte", "ejemplo reporte.Rmd")
        temp_report <- file.path(temp_dir, "ejemplo reporte.Rmd")
        
        # 复制Rmd文件到临时目录
        file.copy(source_rmd, temp_report, overwrite = TRUE)
        
        # 可选：如果模板有其他依赖文件，复制整个文件夹内容
        # file.copy("ejemplo reporte", tempdir(), recursive = TRUE, overwrite = TRUE)
        
        params <- list(n = input$slider,
                       plot = input$perro
        )
        
        # 渲染报告，确保模板能找到依赖资源
        rmarkdown::render(temp_report, 
                          output_file = file,
                          params = params,
                          envir = new.env(parent = globalenv()),
                          output_dir = dirname(file)
        )
      }
    )
  }
)

额外说明 #

• 如果你的Markdown模板依赖文件夹内的其他资源（比如自定义CSS、图片），请取消代码中file.copy("ejemplo reporte", tempdir(), recursive = TRUE, overwrite = TRUE)的注释，这样整个文件夹的内容都会被同步到临时目录
• 使用file.path拼接路径是跨平台的最佳实践，避免手动写斜杠导致的Windows/Linux路径兼容问题

内容的提问来源于stack exchange，提问作者Jorge Hernández