如何在另一个observeEvent中创建动态编号的observeEvent？

library(shiny)

ui <- fluidPage(
  actionButton("add_btn", "Add Observer"),
  verbatimTextOutput("output")
)

server <- function(input, output, session) {
  # 创建一个reactiveValues对象用于存储动态编号的observeEvent
  observe_events <- reactiveValues()
  
  # 创建一个计数器，用于生成动态编号
  counter <- 1
  
  # 监听"add_btn"按钮的点击事件
  observeEvent(input$add_btn, {
    # 生成动态编号
    observe_id <- paste0("observe_", counter)
    
    # 创建动态编号的observeEvent
    observe_events[[observe_id]] <- observeEvent(input$add_btn, {
      output$output <- renderText({
        paste("Observer", counter, "is triggered.")
      })
    })
    
    # 增加计数器
    counter <- counter + 1
  })
}

shinyApp(ui, server)