如何在shiny中创建动态数量的observeEvent？

library(shiny)

ui <- fluidPage(
  actionButton("addButton", "Add observeEvent"),
  verbatimTextOutput("output")
)

server <- function(input, output, session) {
  observeEvent(input$addButton, {
    # 生成一个新的观察事件
    observeEventName <- paste0("observeEvent", input$addButton)
    
    # 定义触发事件的条件和相应的操作
    observeEvent(input[[observeEventName]], {
      output$output <- renderPrint({
        paste("This is observeEvent", input$addButton)
      })
    })
    
    # 将观察事件添加到观察事件列表中
    observeEventList <- reactiveValues()
    observeEventList[[observeEventName]] <- observeEventName
  })
}

shinyApp(ui, server)