pickerInput example

position-picker-input.R

positions <- data.frame(pos = c("QB","RB","WR","TE"),
                        posdesc = c("Quarterback","Running Back","Wide Receiver","Tight End"))

shinyWidgets::pickerInput(
  inputId = 'positions',
  label = 'position',
  choices = positions$pos,
  selected = positions$pos,
  multiple = TRUE,
  options = list(
    `actions-box` = TRUE, # select-all/deselect-all
    `live-search` = TRUE, # search the options
    `selected-text-format` = "count > 1"), # show "N options selected" for more than 1 selection
  choicesOpt = list(`subtext` = positions$posdesc) # optional subtitle, for maximum swag
)