R SHINY:根据selectInput/numericInput选项清除/更新mainPanel

ui <- fluidPage(
  selectInput("select", "选择选项", choices = c("选项1", "选项2", "选项3")),
  numericInput("number", "输入数字", value = 0)
)

server <- function(input, output) {
  data <- reactive({
    list(
      selectValue = input$select,
      numericValue = input$number
    )
  })
}

server <- function(input, output) {
  data <- reactive({
    list(
      selectValue = input$select,
      numericValue = input$number
    )
  })
  
  observeEvent(data(), {
    # 根据selectInput选项清除/更新mainPanel
    if (data()$selectValue == "选项1") {
      output$mainPanel <- renderText("选择了选项1")
    } else if (data()$selectValue == "选项2") {
      output$mainPanel <- renderText("选择了选项2")
    } else if (data()$selectValue == "选项3") {
      output$mainPanel <- renderText("选择了选项3")
    }
  })
}