Q Select

Warning. This will not render correctly if not attatched to a shiny server.

Usage

QSelect.shinyInput(..., options, label = "")

Arguments

...

args to pass to the element shiny.mui::Select.shinyInput() element

options

A list of key value pairs

label

label to display for the select

Examples

library(shiny.quartz)
library(shiny)


if (interactive()) {
    shinyApp(
        ui = div(
            QSelect.shinyInput("text", fullWidth = T, label = "First One", value = "two", options = make_options("one", "two", "three")),
            textOutput("textValue")
        ),
        server = function(input, output) {
            output$textValue <- renderText({
                sprintf("Value: %s", input$text)
            })
        }
    )
}