Material Design Switch Input Control
A toggle switch to turn a selection on or off.
materialSwitch( inputId, label = NULL, value = FALSE, status = "default", right = FALSE, inline = FALSE, width = NULL )
inputId |
The |
label |
Input label. |
value |
TRUE or FALSE. |
status |
Color, must be a valid Bootstrap status : default, primary, info, success, warning, danger. |
right |
Should the the label be on the right? default to FALSE. |
inline |
Display the input inline, if you want to place buttons next to each other. |
width |
The width of the input, e.g. '400px', or '100%'. |
A switch control that can be added to a UI definition.
if (interactive()) {
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
tags$h3("Material switch examples"),
materialSwitch(inputId = "switch1", label = "Night mode"),
verbatimTextOutput("value1"),
materialSwitch(inputId = "switch2", label = "Night mode", status = "danger"),
verbatimTextOutput("value2")
)
server <- function(input, output) {
output$value1 <- renderText({ input$switch1 })
output$value2 <- renderText({ input$switch2 })
}
shinyApp(ui, server)
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.