有没有办法让用户在R闪亮的应用程序中上传图像，并将其呈现在可下载的markdown报告中？

library(shiny)
library(shinyFiles)
library(markdown)
library(knitr)

ui <- fluidPage(
  shinyFilesButton("file", "选择图像文件", "上传", multiple = FALSE),
  verbatimTextOutput("file_path"),
  actionButton("generate_report", "生成报告")
)

server <- function(input, output) {
  shinyFileChoose(input, "file", roots = c(home = '~'), filetypes = c('', 'png', 'jpg', 'jpeg'))
  
  output$file_path <- renderPrint({
    if (!is.null(input$file$datapath)) {
      input$file$datapath
    }
  })
  
  observeEvent(input$generate_report, {
    if (!is.null(input$file$datapath)) {
      # 生成markdown报告
      output_file <- "report.Rmd"
      knitr::knit(input = "template.Rmd", output = output_file)
      
      # 下载markdown报告
      output$download_report <- downloadHandler(
        filename = "report.md",
        content = function(file) {
          file.copy(output_file, file)
        }
      )
    }
  })
}

shinyApp(ui, server)