inst/examples/ListSlider.R

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

library(shiny.mui)
library(shiny)


if (interactive()) {
  shinyApp(
    ui = div(
      Box(),
      ListSlider.shinyInput("val", value = 5, options = seq(1, 10)),
      textOutput("textValue"),
      ListSlider.shinyInput("multival", value = c(1,5), options = seq(1, 10)),
      textOutput("multival")
    ),
    server = function(input, output) {
      output$textValue <- renderText({
        sprintf("Value: %s", input$val)
      })
      output$multival <- renderText({
        input$multival
      })
    }
  )
}