闪闪发光。如何在设置数据子集时使selectinput选择相互反应

ui <- fluidPage(
  selectInput("subset1", "选择条件1", choices = c("条件1A", "条件1B", "条件1C")),
  selectInput("subset2", "选择条件2", choices = c("条件2A", "条件2B", "条件2C"))
)

server <- function(input, output) {
  observeEvent(input$subset1, {
    if (input$subset1 == "条件1A") {
      updateSelectInput(session, "subset2", choices = c("条件2A", "条件2B"))
    } else if (input$subset1 == "条件1B") {
      updateSelectInput(session, "subset2", choices = c("条件2B", "条件2C"))
    } else if (input$subset1 == "条件1C") {
      updateSelectInput(session, "subset2", choices = c("条件2A", "条件2C"))
    }
  })
  
  observeEvent(input$subset2, {
    if (input$subset2 == "条件2A") {
      # 根据选择的条件1和条件2来设置数据子集
    } else if (input$subset2 == "条件2B") {
      # 根据选择的条件1和条件2来设置数据子集
    } else if (input$subset2 == "条件2C") {
      # 根据选择的条件1和条件2来设置数据子集
    }
  })
}

shinyApp(ui, server)