如何在R中的传单弹出标签中包含图像？

library(shiny)

ui <- fluidPage(
  titlePanel("在传单弹出标签中包含图像"),
  sidebarLayout(
    sidebarPanel(
      fileInput("image", "选择图像文件")
    ),
    mainPanel(
      actionButton("showImage", "显示图像"),
      tags$div(id = "imageContainer")
    )
  )
)

server <- function(input, output) {
  observeEvent(input$showImage, {
    req(input$image)
    
    output$imageContainer <- renderUI({
      tags$img(src = input$image$datapath, width = "100%")
    })
  })
}

shinyApp(ui, server)