如何在Shiny应用中让选择器已选选项在另一选择器中不可选？

你的需求是让两个pickerInput选择器实现互斥：当其中一个选中某选项时，该选项在另一个选择器中隐藏/不可选，确保两者不会同时选中相同值。

原代码的问题在于使用了updateSelectInput来更新pickerInput，但pickerInput是shinyWidgets包的组件，需要用对应的updatePickerInput函数才能正确生效。以下是修正后的完整代码：

library(shiny)
library(shinydashboard)
library(shinyWidgets)

choices = c("RC", "TP", "IY", "HP","Population")

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    pickerInput(
      inputId = "rtihcol1",
      label = "第一列选择", 
      choices = choices,
      selected = "Population",
      options = list(`actions-box` = TRUE), 
      multiple = FALSE
    ),
    pickerInput(
      inputId = "rtih",
      label = "第二列选择", 
      choices = choices,
      selected = "RC",
      options = list(`actions-box` = TRUE), 
      multiple = FALSE
    )
  ),
  dashboardBody()
)

server <- function(input, output, session) {
  # 监听第二个选择器的变化，更新第一个选择器的可选选项
  observeEvent(input$rtih, {
    available_choices <- choices[!choices %in% input$rtih]
    # 确保当前选中值合法，若已被排除则重置为可选列表首个选项
    new_selected <- ifelse(input$rtihcol1 %in% available_choices, input$rtihcol1, available_choices[1])
    updatePickerInput(
      session, 
      "rtihcol1", 
      choices = available_choices,
      selected = new_selected
    )
  })
  
  # 监听第一个选择器的变化，更新第二个选择器的可选选项
  observeEvent(input$rtihcol1, {
    available_choices <- choices[!choices %in% input$rtihcol1]
    # 确保当前选中值合法，若已被排除则重置为可选列表首个选项
    new_selected <- ifelse(input$rtih %in% available_choices, input$rtih, available_choices[1])
    updatePickerInput(
      session, 
      "rtih", 
      choices = available_choices,
      selected = new_selected
    )
  })
}

shinyApp(ui, server)

关键说明： #

• 替换updateSelectInput为updatePickerInput，适配shinyWidgets的选择器组件特性
• 每次更新时自动计算排除对方选中值后的可选列表
• 增加选中值合法性校验：如果当前选择器的选中值被排除在可选范围外，自动重置为可选列表的第一个选项，避免出现选中值不存在的异常情况

内容的提问来源于stack exchange，提问作者firmo23