Create a Font Awesome Bootstrap checkbox that can be used to specify logical values.
awesomeCheckbox(inputId, label, value = FALSE, status = "primary",
width = NULL)
The input
slot that will be used to access the value.
Input label.
Initial value (TRUE or FALSE).
Color of the buttons, a valid Bootstrap status : default, primary, info, success, warning, danger.
The width of the input
A checkbox control that can be added to a UI definition.
# NOT RUN {
## Only run examples in interactive R sessions
if (interactive()) {
ui <- fluidPage(
awesomeCheckbox(inputId = "somevalue",
label = "A single checkbox",
value = TRUE,
status = "danger"),
verbatimTextOutput("value")
)
server <- function(input, output) {
output$value <- renderText({ input$somevalue })
}
shinyApp(ui, server)
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab