ui <- bslib::page_fixed(
shiny::h1("Switch test"),
inline("The server is now ",
inline_switch("myswitch", TRUE,
on = shiny::span(class = "text-success", "powered ON"),
off = shiny::span(class = "text-danger", "powered OFF"),
meaning = "Server power switch"),
"."
)
)
Run the code above in your browser using DataLab