examples/search_selection/static_choices.R

In Appsilon/shiny.semantic: Semantic UI Support for Shiny

library(shiny)
library(shiny.semantic)

ui <- function() {
    shinyUI(
        semanticPage(
            title = "Dropdown example",
            uiOutput("search_letters"),
            p("Selected letter:"),
            textOutput("selected_letters")
          )
      )
  }

  server <- shinyServer(function(input, output, session) {
    choices <- LETTERS
    output$search_letters <- shiny::renderUI(
      search_selection_choices("search_result", choices, value = "A", multiple = TRUE)
    )
    output$selected_letters <- renderText(input[["search_result"]])
    })

shinyApp(ui = ui(), server = server)