Showcase - new example for HTMLselect

[jan-smo]

[Proposal]
to add to showcase / doc

To give a different description of the selection (what the user sees) but different (shorter) in the server part you have to use a list with value and label pairs.
Example:

library(appsilon.blueprint)
library(shiny)

options <- list(
  list(value = "a", label = "Apples"),
  list(value = "b", label = "Bananas"),
  list(value = "c", label = "Cherries")
)

shinyApp(
  ui = tagList(
    HTMLSelect.shinyInput(
      inputId = "choice",
      value = "b",
      options = options
    ),
    textOutput("text")
  ),

  server = function(input, output) {​
    output$text <- renderText(deparse(input$choice))
  }
)

Note that HTMLselect component in Blueprint.js doesn't support item grouping,