View source: R/input-awesomecheckbox.R
awesomeCheckboxGroup | R Documentation |
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.
updateAwesomeCheckboxGroup
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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.