如何在R中更新来自两个不同来源的numericInput？

install.packages("shiny")

library(shiny)

shinyApp(
  ui = fluidPage(
    # 在这里定义UI组件
  ),
  server = function(input, output) {
    # 在这里定义服务器逻辑
  }
)

numericInput("input1", "输入1", value = 0)
numericInput("input2", "输入2", value = 0)

observeEvent(input$input1, {
  updateNumericInput(session, "input2", value = input$input1)
})

observeEvent(input$input2, {
  updateNumericInput(session, "input1", value = input$input2)
})

library(shiny)

shinyApp(
  ui = fluidPage(
    numericInput("input1", "输入1", value = 0),
    numericInput("input2", "输入2", value = 0)
  ),
  server = function(input, output) {
    observeEvent(input$input1, {
      updateNumericInput(session, "input2", value = input$input1)
    })
    
    observeEvent(input$input2, {
      updateNumericInput(session, "input1", value = input$input2)
    })
  }
)