如何在点击一个按钮后将多张图片插入到shiny中？

library(shiny)

# UI部分
ui <- fluidPage(
  actionButton("insertBtn", "插入图片"),
  div(id = "imageContainer")
)

# Server部分
server <- function(input, output) {
  observeEvent(input$insertBtn, {
    # 在按钮点击事件中插入图片
    insertUI(
      selector = "#imageContainer",
      where = "beforeEnd",
      ui = tags$img(src = "path_to_image1.jpg")
    )
    insertUI(
      selector = "#imageContainer",
      where = "beforeEnd",
      ui = tags$img(src = "path_to_image2.jpg")
    )
    # 可以根据需要插入更多的图片
  })
}

# 运行Shiny应用程序
shinyApp(ui, server)