if (interactive()) {
### examples ----
# see ?demoNumericRange
demoNumericRange()
### basic usage ----
library( shiny )
library( shinyWidgets )
ui <- fluidPage(
tags$br(),
numericRangeInput(
inputId = "my_id", label = "Numeric Range Input:",
value = c(100, 400)
),
verbatimTextOutput(outputId = "res1")
)
server <- function(input, output, session) {
output$res1 <- renderPrint(input$my_id)
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab