Awesome Checkbox Group Input Control
Create a Font Awesome Bootstrap checkbox that can be used to specify logical values.
awesomeCheckboxGroup( inputId, label, choices, selected = NULL, inline = FALSE, status = "primary", width = NULL )
inputId |
The |
label |
Input label. |
choices |
List of values to show checkboxes for. |
selected |
The values that should be initially selected, if any. |
inline |
If TRUE, render the choices inline (i.e. horizontally) |
status |
Color of the buttons |
width |
The width of the input |
A checkbox control that can be added to a UI definition.
if (interactive()) {
ui <- fluidPage(
br(),
awesomeCheckboxGroup(
inputId = "id1", label = "Make a choice:",
choices = c("graphics", "ggplot2")
),
verbatimTextOutput(outputId = "res1"),
br(),
awesomeCheckboxGroup(
inputId = "id2", label = "Make a choice:",
choices = c("base", "dplyr", "data.table"),
inline = TRUE, status = "danger"
),
verbatimTextOutput(outputId = "res2")
)
server <- function(input, output, session) {
output$res1 <- renderPrint({
input$id1
})
output$res2 <- renderPrint({
input$id2
})
}
shinyApp(ui = ui, server = server)
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.