wired_toggle: Wired Toggle
In dreamRs/wired: Wired Elements in Shiny

Wired Toggle

1	wired_toggle(inputId, label, value = FALSE, width = NULL)

`inputId`	The `input` slot that will be used to access the value.
`label`	Display label for the control, or `NULL` for no label.
`value`	Initial value (`TRUE` or `FALSE`).
`width`	The width of the input, e.g. `400px`, or `100%`; see validateCssUnit.

if (interactive()) {

  library(shiny)
  library(wired)

  ui <- fluidPage(
    wired_toggle(
      inputId = "tggl",
      label = "Toggle:"
    ),
    verbatimTextOutput(outputId = "res")
  )

  server <- function(input, output, session) {

    output$res <- renderPrint(input$tggl)

  }

  shinyApp(ui, server)

}