根据R Shiny中的others选择动态更新两个selectInput框

options_df <- data.frame(option = c("Option 1", "Option 2", "Option 3"))

selectInput("first_select", "First Select", choices = options_df$option)

observeEvent(input$first_select, {
  selected_option <- input$first_select
  
  # 根据选择的值更新第二个selectInput框的选项
  if (selected_option == "Option 1") {
    choices <- c("Option 1-1", "Option 1-2", "Option 1-3")
  } else if (selected_option == "Option 2") {
    choices <- c("Option 2-1", "Option 2-2", "Option 2-3")
  } else if (selected_option == "Option 3") {
    choices <- c("Option 3-1", "Option 3-2", "Option 3-3")
  }
  
  updateSelectInput(session, "second_select", choices = choices)
})

uiOutput("second_select")

output$second_select <- renderUI({
  selected_option <- input$first_select
  
  # 根据选择的值生成第二个selectInput框
  if (selected_option == "Option 1") {
    selectInput("second_select", "Second Select", choices = c("Option 1-1", "Option 1-2", "Option 1-3"))
  } else if (selected_option == "Option 2") {
    selectInput("second_select", "Second Select", choices = c("Option 2-1", "Option 2-2", "Option 2-3"))
  } else if (selected_option == "Option 3") {
    selectInput("second_select", "Second Select", choices = c("Option 3-1", "Option 3-2", "Option 3-3"))
  }
})