dev/test_dev/test_disable_items_in_selectInput.R

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)
 
 
samWieczorek/Prostar2 documentation built on Jan. 18, 2021, 11:42 p.m.