ui <- bslib::page_fluid(
shinyjs::useShinyjs(),
optionalSliderInput("s", "shown", 0, 1, 0.2),
optionalSliderInput("h", "hidden", 0, NA, 1),
)
if (interactive()) {
shiny::shinyApp(ui, function(input, output) {})
}
Run the code above in your browser using DataLab