feat: Add toolbar input select

[elnelson575]

Fixes #1249

Toolbar Input Selects should:

• Be single select with selectize=False
• Be slim enough to fit in a card header without altering the height
• Use the default behavior for dropdowns
• Have hover and select highlighting in light mode and in dark mode
• Accomodate all methods of specifying choices

library(shiny)
library(bslib)

ui <- page_fillable(
  tags$head(
    tags$link(rel = "stylesheet", type = "text/css", href = "styles.css")
  ),
  card(
    card_header(
      "Card 1 header",
      toolbar(
        align = "right",
        shiny::downloadLink("download", "Download"),
        toolbar_input_select(
          id = "select",
          choices = c("Option 1", "Option 2", "Option 3"),
          selected = "Option 2"
        ),
        toolbar_input_select(
          id = "select_state",
          choices = list(
            `East Coast` = list("NY", "NJ", "CT"),
            `West Coast` = list("WA", "OR", "CA"),
            `Midwest` = list("MN", "WI", "IA")
          ),
          selected = "NY"
        ),
        input_dark_mode(id = "togglesm", class = "btn-xs border-0")
      )
    ),
    p("Card 1 body"),
    sliderInput("slider", "Slider", 0, 10, 5),
    max_height = "500px",
    card_footer(
      toolbar(
        align = "left",
        toolbar_input_select(
          id = "select_footer",
          choices = c("A" = "a", "B" = "b", "C" = "c"),
          selected = "B"
        )
      )
    )
  ),
  toolbar(
    align = "right",
    actionButton("test", NULL, icon = icon("calendar"), class = "btn-sm"),
    actionButton("test2", NULL, icon = icon("pencil"), class = "btn-sm")
  )
)

server <- function(input, output) {}


shinyApp(ui = ui, server = server)

[elnelson575]

This is only to match what we currently have in the buttons PR

[elnelson575]

Same with these changes to toolbar.scss for the .bslib-toolbar (Also just to match what's in buttons)