| checkbox_input | R Documentation | 
Create Semantic UI checkbox
checkbox_input(
  input_id,
  label = "",
  type = NULL,
  is_marked = TRUE,
  style = NULL
)
checkboxInput(inputId, label = "", value = FALSE, width = NULL)
toggle(input_id, label = "", is_marked = TRUE, style = NULL)
| input_id | Input name. Reactive value is available under input[[name]]. | 
| label | Text to be displayed with checkbox. | 
| type | Type of checkbox: NULL, 'toggle' | 
| is_marked | Defines if checkbox should be marked. Default TRUE. | 
| style | Style of the widget. | 
| inputId | same as  | 
| value | same as  | 
| width | The width of the input (currently not supported, but check  | 
The inputs are updateable by using updateCheckboxInput.
The following types are allowed:
NULL The standard checkbox (default)
toggle Each checkbox has a toggle form
slider Each checkbox has a simple slider form
if (interactive()){
  ui <- shinyUI(
    semanticPage(
      p("Simple checkbox:"),
      checkbox_input("example", "Check me", is_marked = FALSE),
      p(),
      p("Simple toggle:"),
      toggle("tog1", "My Label", TRUE)
    )
  )
  server <- function(input, output, session) {
    observeEvent(input$tog1, {
      print(input$tog1)
    })
  }
  shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.