shiny - 在 selectinput 下拉列表中禁用一个项目

Question

如何禁用 selectInput() 下拉菜单中的项目？

例如；

library(shiny)
ui <- fluidPage(selectInput("id1","Select",choices=c("A","B","C")))
server <- function(input, output) {}
shinyApp(ui, server)

比如说，无论出于何种原因，由于某些逻辑，无法选择选项 C。我希望用户能够看到所有选项，但选项 C 已禁用/不可选择。

Answer 1

您可以使用包 shinyWidgets 中的 pickerInput 执行此操作:

library(shiny)
library(shinyWidgets)
ui <- fluidPage(
  pickerInput(
    inputId = "id1",
    label = "Select :",
    choices = c("A", "B", "C"),
    multiple = FALSE,
    choicesOpt = list(
      disabled = c("A", "B", "C") %in% c("C")
    )
  ),
  verbatimTextOutput(outputId = "result")
)
server <- function(input, output) {
  output$result <- renderPrint(input$id1)
}
shinyApp(ui, server)

也可以从服务器执行此操作，请参阅 ?updatePickerInput

中的示例