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

在R中更新来自两个不同来源的numericInput可以通过以下步骤实现：

首先，确保已经安装了shiny包，可以使用以下命令进行安装：

install.packages("shiny")

创建一个app.R文件，并在其中引入shiny包：

library(shiny)

在app.R文件中创建一个shinyApp函数，用于定义应用程序的UI和服务器逻辑：

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

在UI部分，可以使用numericInput函数创建两个输入框，分别来自两个不同的来源：

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

在服务器逻辑部分，可以使用observeEvent函数监听两个输入框的变化，并更新另一个输入框的值：

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

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

完整的app.R文件如下所示：

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)
    })
  }
)

这样，当输入框1的值发生变化时，输入框2的值会被更新为输入框1的值；同样地，当输入框2的值发生变化时，输入框1的值会被更新为输入框2的值。