如何在R Shiny中修改select input中多个选定值的显示

selectInput("my_select", "选择选项:", choices = c("选项1", "选项2", "选项3"), multiple = TRUE)

observe({
  # 获取当前选中的选项
  selected_values <- input$my_select
  
  # 创建新的选项列表，根据需求修改选项的显示方式
  new_choices <- c("新选项1", "新选项2", "新选项3")
  
  # 更新select input的选项和选中的值
  updateSelectInput(session, "my_select", choices = new_choices, selected = selected_values)
})

selected_values <- reactive({
  input$my_select
})

observe({
  # 获取当前选中的选项
  selected <- selected_values()
  
  # 创建新的选项列表，根据需求修改选项的显示方式
  new_choices <- c("新选项1", "新选项2", "新选项3")
  
  # 更新select input的选项和选中的值
  updateSelectInput(session, "my_select", choices = new_choices, selected = selected)
})