在给定先前selectizeInput中的选定值的情况下更新动态生成的selectizeInput中的选项

library(shiny)

ui <- fluidPage(
  selectizeInput("select1", "先前的selectizeInput", choices = c("A", "B", "C")),
  selectizeInput("select2", "动态生成的selectizeInput")
)

server <- function(input, output, session) {
  observeEvent(input$select1, {
    selectedValue <- input$select1
    
    # 根据选定的值生成动态selectizeInput的选项列表
    dynamicChoices <- generateDynamicChoices(selectedValue)
    
    # 更新动态selectizeInput的选项
    updateSelectizeInput(session, "select2", choices = dynamicChoices)
  })
  
  generateDynamicChoices <- function(selectedValue) {
    # 根据选定的值生成动态selectizeInput的选项列表的逻辑
    # 这里可以根据具体需求自定义逻辑，比如从数据库中查询数据或进行某种计算操作
    
    # 示例：根据先前的选定值生成动态选项
    if (selectedValue == "A") {
      return c("1", "2", "3")
    } else if (selectedValue == "B") {
      return c("4", "5", "6")
    } else if (selectedValue == "C") {
      return c("7", "8", "9")
    } else {
      return character(0)
    }
  }
}

shinyApp(ui, server)