Change the value of a switch input on the client

updateSwitchInput(
  session,
  inputId,
  value = NULL,
  label = NULL,
  onLabel = NULL,
  offLabel = NULL,
  onStatus = NULL,
  offStatus = NULL,
  disabled = NULL
)

Arguments

session

The session object passed to function given to shinyServer.

inputId

The id of the input object.

value

The value to set for the input object.

label

The label to set for the input object.

onLabel

The onLabel to set for the input object.

offLabel

The offLabel to set for the input object.

onStatus

The onStatus to set for the input object.

offStatus

The offStatus to set for the input object.

disabled

Logical, disable state.

See also

Examples

if (interactive()) { library("shiny") library("shinyWidgets") ui <- fluidPage( tags$h1("Update", tags$code("switchInput")), br(), fluidRow( column( width = 4, panel( switchInput(inputId = "switch1"), verbatimTextOutput(outputId = "resup1"), tags$div( class = "btn-group", actionButton( inputId = "updatevaluetrue", label = "Set to TRUE" ), actionButton( inputId = "updatevaluefalse", label = "Set to FALSE" ) ), heading = "Update value" ) ), column( width = 4, panel( switchInput(inputId = "switch2", label = "My label"), verbatimTextOutput(outputId = "resup2"), textInput(inputId = "updatelabeltext", label = "Update label:"), heading = "Update label" ) ), column( width = 4, panel( switchInput( inputId = "switch3", onLabel = "Yeaah", offLabel = "Noooo" ), verbatimTextOutput(outputId = "resup3"), fluidRow(column( width = 6, textInput(inputId = "updateonLabel", label = "Update onLabel:") ), column( width = 6, textInput(inputId = "updateoffLabel", label = "Update offLabel:") )), heading = "Update onLabel & offLabel" ) ) ), fluidRow(column( width = 4, panel( switchInput(inputId = "switch4"), verbatimTextOutput(outputId = "resup4"), fluidRow( column( width = 6, pickerInput( inputId = "updateonStatus", label = "Update onStatus:", choices = c("default", "primary", "success", "info", "warning", "danger") ) ), column( width = 6, pickerInput( inputId = "updateoffStatus", label = "Update offStatus:", choices = c("default", "primary", "success", "info", "warning", "danger") ) ) ), heading = "Update onStatus & offStatusr" ) ), column( width = 4, panel( switchInput(inputId = "switch5"), verbatimTextOutput(outputId = "resup5"), checkboxInput( inputId = "disabled", label = "Disabled", value = FALSE ), heading = "Disabled" ) )) ) server <- function(input, output, session) { # Update value observeEvent(input$updatevaluetrue, { updateSwitchInput(session = session, inputId = "switch1", value = TRUE) }) observeEvent(input$updatevaluefalse, { updateSwitchInput(session = session, inputId = "switch1", value = FALSE) }) output$resup1 <- renderPrint({ input$switch1 }) # Update label observeEvent(input$updatelabeltext, { updateSwitchInput( session = session, inputId = "switch2", label = input$updatelabeltext ) }, ignoreInit = TRUE) output$resup2 <- renderPrint({ input$switch2 }) # Update onLabel & offLabel observeEvent(input$updateonLabel, { updateSwitchInput( session = session, inputId = "switch3", onLabel = input$updateonLabel ) }, ignoreInit = TRUE) observeEvent(input$updateoffLabel, { updateSwitchInput( session = session, inputId = "switch3", offLabel = input$updateoffLabel ) }, ignoreInit = TRUE) output$resup3 <- renderPrint({ input$switch3 }) # Update onStatus & offStatus observeEvent(input$updateonStatus, { updateSwitchInput( session = session, inputId = "switch4", onStatus = input$updateonStatus ) }, ignoreInit = TRUE) observeEvent(input$updateoffStatus, { updateSwitchInput( session = session, inputId = "switch4", offStatus = input$updateoffStatus ) }, ignoreInit = TRUE) output$resup4 <- renderPrint({ input$switch4 }) # Disabled observeEvent(input$disabled, { updateSwitchInput( session = session, inputId = "switch5", disabled = input$disabled ) }, ignoreInit = TRUE) output$resup5 <- renderPrint({ input$switch5 }) } shinyApp(ui = ui, server = server) }