Toggle Switch

We also can create a update function which just a copy of shiny::updateCheckboxInput but more user friendly.

update_tabler_switch <- function (session, inputId, label = NULL, value = NULL) {
  message <- dropNulls(list(label = label, value = value))
  session$sendInputMessage(inputId, message)
}

Let’s RUN example 2