当使用html = TRUE时，如何为for循环的每次迭代动态更新模块化shinyalert中的dropdown？

library(shiny)
library(shinyalert)

ui <- fluidPage(
  shinyalert::useShinyalert(),
  
  actionButton("show_alert", "显示Alert"),
  
  uiOutput("dropdown_ui")
)

server <- function(input, output, session) {
  
  observeEvent(input$show_alert, {
    shinyalert(
      title = "动态更新的dropdown",
      text = "",
      html = TRUE,
      input = "text",
      showCancelButton = FALSE,
      closeOnClickOutside = FALSE,
      animation = FALSE,
      buttons = c("OK")
    )
  })
  
  output$dropdown_ui <- renderUI({
    # 创建一个动态的dropdown选项
    dropdown_options <- c("选项1", "选项2", "选项3")
    dropdown <- selectInput("dropdown_select", "选择一个选项", choices = dropdown_options)
    
    # 将dropdown插入shinyalert的dropdown中
    shinyalert::setInput(prompt = dropdown)
  })
}

shinyApp(ui, server)