RShiny:如何在for循环中使用顺序模态

library(shiny)

ui <- fluidPage(
  actionButton("start", "开始顺序模态")
)

server <- function(input, output, session) {
  observeEvent(input$start, {
    for (i in 1:10) {
      showModal(modalDialog(
        title = paste("第", i, "步"),
        "这是顺序模态的第", i, "步。",
        footer = tagList(
          actionButton("next", "下一步"),
          modalButton("取消")
        )
      ))
      
      observeEvent(input$next, {
        removeModal()
      })
      
      showModal(modalDialog(
        title = paste("第", i, "步完成"),
        "顺序模态的第", i, "步已完成。",
        footer = modalButton("关闭")
      ))
    }
  })
}

shinyApp(ui, server)