Checkbox Group Input Control — checkboxGroupInput
R/input-checkboxgroup.R
Description
Create a group of checkboxes that can be used to toggle multiple choices independently. The server will receive the input as a character vector of the selected values.
Arguments
- inputId
The
inputslot that will be used to access the value.- label
Display label for the control, or
NULLfor no label.- choices
List of values to show checkboxes for. If elements of the list are named then that name rather than the value is displayed to the user. If this argument is provided, then
choiceNamesandchoiceValuesmust not be provided, and vice-versa. The values should be strings; other types (such as logicals and numbers) will be coerced to strings.- selected
The values that should be initially selected, if any.
- inline
If
TRUE, render the choices inline (i.e. horizontally)- width
The width of the input, e.g.
'400px', or'100%'; seevalidateCssUnit().- choiceNames, choiceValues
List of names and values, respectively, that are displayed to the user in the app and correspond to the each choice (for this reason,
choiceNamesandchoiceValuesmust have the same length). If either of these arguments is provided, then the other must be provided andchoicesmust not be provided. The advantage of using both of these over a named list forchoicesis thatchoiceNamesallows any type of UI object to be passed through (tag objects, icons, HTML code, ...), instead of just simple text. See Examples.
Value
A list of HTML elements that can be added to a UI definition.
Server value
Character vector of values corresponding to the boxes that are checked.
See also
checkboxInput(), updateCheckboxGroupInput()
Other input elements:
actionButton(),
checkboxInput(),
dateInput(),
dateRangeInput(),
fileInput(),
numericInput(),
passwordInput(),
radioButtons(),
selectInput(),
sliderInput(),
submitButton(),
textAreaInput(),
textInput(),
varSelectInput()
Examples
## Only run examples in interactive R sessions
if (interactive()) {
ui <- fluidPage(
checkboxGroupInput("variable", "Variables to show:",
c("Cylinders" = "cyl",
"Transmission" = "am",
"Gears" = "gear")),
tableOutput("data")
)
server <- function(input, output, session) {
output$data <- renderTable({
mtcars[, c("mpg", input$variable), drop = FALSE]
}, rownames = TRUE)
}
shinyApp(ui, server)
ui <- fluidPage(
checkboxGroupInput("icons", "Choose icons:",
choiceNames =
list(icon("calendar"), icon("bed"),
icon("cog"), icon("bug")),
choiceValues =
list("calendar", "bed", "cog", "bug")
),
textOutput("txt")
)
server <- function(input, output, session) {
output$txt <- renderText({
icons <- paste(input$icons, collapse = ", ")
paste("You chose", icons)
})
}
shinyApp(ui, server)
}