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.
checkboxGroupInput(
inputId,
label,
choices = NULL,
selected = NULL,
inline = FALSE,
width = NULL,
choiceNames = NULL,
choiceValues = NULL
)
The input
slot that will be used to access the value.
Display label for the control, or NULL
for no label.
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 choiceNames
and choiceValues
must not be provided, and vice-versa. The values should be strings; other
types (such as logicals and numbers) will be coerced to strings.
The values that should be initially selected, if any.
If TRUE
, render the choices inline (i.e. horizontally)
The width of the input, e.g. '400px'
, or '100%'
;
see validateCssUnit()
.
List of names and values, respectively,
that are displayed to the user in the app and correspond to the each
choice (for this reason, choiceNames
and choiceValues
must have the same length). If either of these arguments is
provided, then the other must be provided and choices
must not be provided. The advantage of using both of these over
a named list for choices
is that choiceNames
allows any
type of UI object to be passed through (tag objects, icons, HTML code,
...), instead of just simple text. See Examples.
A list of HTML elements that can be added to a UI definition.
Character vector of values corresponding to the boxes that are checked.
checkboxInput()
, updateCheckboxGroupInput()
Other input elements:
actionButton()
,
checkboxInput()
,
dateInput()
,
dateRangeInput()
,
fileInput()
,
numericInput()
,
passwordInput()
,
radioButtons()
,
selectInput()
,
sliderInput()
,
submitButton()
,
textAreaInput()
,
textInput()
,
varSelectInput()
## 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)
}