show with app
function(input, output) {

  # You can access the value of the widget with input$checkbox, e.g.
  output$value <- renderPrint({ input$checkbox })

}
fluidPage(
    
  # Copy the line below to make a checkbox
  checkboxInput("checkbox", label = "Choice A", value = TRUE),
  
  hr(),
  fluidRow(column(3, verbatimTextOutput("value")))
  
)