A toggle switch to replace checkbox
prettySwitch(inputId, label, value = FALSE, status = "default",
slim = FALSE, fill = FALSE, bigger = FALSE, width = NULL)
The input
slot that will be used to access the value.
Display label for the control, or NULL
for no label.
Initial value (TRUE
or FALSE
).
Add a class to the switch, you can use Bootstrap status like 'info', 'primary', 'danger', 'warning' or 'success'.
Change the style of the switch (TRUE
or FALSE
), see examples.
Change the style of the switch (TRUE
or FALSE
), see examples.
Scale the checkboxes a bit bigger (TRUE
or FALSE
).
The width of the input, e.g. 400px
, or 100%
.
TRUE
or FALSE
server-side.
See updatePrettySwitch
to update the value server-side.
# NOT RUN {
if (interactive()) {
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
tags$h1("Pretty switches"),
br(),
fluidRow(
column(
width = 4,
prettySwitch(inputId = "switch1", label = "Default:"),
verbatimTextOutput(outputId = "res1"),
br(),
prettySwitch(inputId = "switch4",
label = "Fill switch with status:",
fill = TRUE, status = "primary"),
verbatimTextOutput(outputId = "res4")
),
column(
width = 4,
prettySwitch(inputId = "switch2",
label = "Danger status:",
status = "danger"),
verbatimTextOutput(outputId = "res2")
),
column(
width = 4,
prettySwitch(inputId = "switch3",
label = "Slim switch:",
slim = TRUE),
verbatimTextOutput(outputId = "res3")
)
)
)
server <- function(input, output, session) {
output$res1 <- renderPrint(input$switch1)
output$res2 <- renderPrint(input$switch2)
output$res3 <- renderPrint(input$switch3)
output$res4 <- renderPrint(input$switch4)
}
shinyApp(ui, server)
}
# }
Run the code above in your browser using DataLab