ui <- bslib::page_fluid(
shinyjs::useShinyjs(),
optionalSliderInputValMinMax("a1", "b1", 1), # Hidden
optionalSliderInputValMinMax("a2", "b2", c(3, 1, 5)) # Shown
)
if (interactive()) {
shiny::shinyApp(ui, function(input, output) {})
}
Run the code above in your browser using DataLab