inst/examples/QSelect.R

In QuartzSoftwareLLC/shiny.quartz: Component library for quartz software based dashboards

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)
            })
        }
    )
}