如何避免运行动态添加输入的初始observeEvent

library(shiny)

ui <- fluidPage(
  actionButton("addInput", "Add Input"),
  verbatimTextOutput("output")
)

server <- function(input, output, session) {
  # 创建一个reactiveValues对象来存储动态添加的输入
  values <- reactiveValues(inputs = list())

  # 监听addInput按钮的点击事件
  observeEvent(input$addInput, {
    # 生成一个唯一的输入ID
    inputId <- paste0("input", length(values$inputs) + 1)

    # 动态添加输入
    insertUI(
      selector = "#addInput",
      where = "beforeBegin",
      ui = textInput(inputId, label = inputId)
    )

    # 将输入ID添加到reactiveValues对象中
    values$inputs <- c(values$inputs, inputId)
  })

  # 监听动态添加的输入的变化
  observeEvent(values$inputs, {
    # 获取所有输入的值
    inputValues <- sapply(values$inputs, function(inputId) input[[inputId]])

    # 执行响应式操作，这里是输出输入的值
    output$output <- renderPrint({
      inputValues
    })
  })
}

shinyApp(ui, server)