inst/examples/app-toogleSwitch.R

In datasketch/shinyinvoer: More Input Widgets for Shiny

library(shiny)
library(shinyinvoer)

ui <- fluidPage(
  uiOutput('toggle_switch_sample'),
  verbatimTextOutput('toggle_switch_output')
)

server <- function(input, output, session) {
  output$toggle_switch_sample <- renderUI({
    toggleSwitchInput(inputId = 'the_switch', label = "Toggle")
  })
  output$toggle_switch_output <- renderPrint({
    input$the_switch
  })
}

shinyApp(ui, server)