Есть ли способ сделать несколько входов Shiny picker, где выбор должен быть непересекающимся?

Я предполагаю, что под «входами для выбора» вы имеете в виду selectInput/selectizeInput.

Есть несколько способов сделать это. Один из способов — использовать updateSelectInput() для обновления напоминания после выбора первого/второго. Тогда возможными состояниями для выбора будут все состояния, кроме уже выбранных. Это сделало бы невозможным выбор одного и того же состояния для нескольких входных данных пользовательского интерфейса.

Однако это может быть немного связано с вашими потребностями. В таком случае предлагаю вам:

• либо замените ваши три входа одним selectInput(..., multiple = TRUE) и используйте validate(), чтобы убедиться, что пользователь выбрал ровно три состояния
• или просто используйте validate(), чтобы выдать пользователю ошибку, если он выбрал одно и то же состояние более одного раза в любом из трех входов.

Для настройки требуется немного работы, но вы можете добиться этого, обновив доступные варианты для других входов при изменении одного из них. Если у вас только два или три входа, которые должны быть связаны вот так, может возникнуть соблазн просто выпишите наблюдателей и покончим с этим. Но на самом деле это обобщаемый шаблон, поэтому я думаю, что имеет смысл использовать вспомогательную функцию вместо. Таким образом, вы можете связать столько входных данных, сколько вам нужно, а также повторно использовать логика в разных приложениях.

Все, что нужно знать вспомогательной функции, — это идентификаторы участвующих входы и набор общих вариантов выбора. Здесь это не обязательно, но также создание реактивного choices позволяет им динамически изменяться.

selectPool <- function(inputIds, choices = reactive(NULL)) {
  stopifnot(is.reactive(choices))
  session <- getDefaultReactiveDomain()
  input <- session$input
  
  # Keep track of all selected values in the pool
  alreadySelected <- reactive({
    Reduce(union, lapply(inputIds, \(id) input[[id]]))
  })
  
  # ... and based on that, what's left to select from.
  remainingChoices <- reactive({
    setdiff(choices(), alreadySelected())
  })
  
  # When an input changes, update remaining choices for others
  lapply(inputIds, \(id) {
    observe({
      lapply(setdiff(inputIds, id), \(otherId) {
        otherSelected <- input[[otherId]]
        updateSelectInput(
          session = session,
          inputId = otherId,
          # Anything already selected must remain a choice
          choices = c(remainingChoices(), otherSelected),
          selected = otherSelected
        )
      })
    }) |> bindEvent(input[[id]], ignoreNULL = FALSE)
  })
}

После того, как мы потратили на это время, его очень просто использовать в приложении:

library(shiny)

ui <- fluidPage(
  titlePanel("Star Wars Alliance Builder"),
  selectInput("alliance1", "Alliance 1", NULL, multiple = TRUE),
  selectInput("alliance2", "Alliance 2", NULL, multiple = TRUE),
  selectInput("alliance3", "Alliance 3", NULL, multiple = TRUE),
)

server <- function(input, output, session) {
  selectPool(
    inputIds = c("alliance1", "alliance2", "alliance3"),
    choices = reactive(unique(dplyr::starwars$species))
  )
}

shinyApp(ui, server)