View source: R/input-checkboxgroupbuttons.R
checkboxGroupButtons | R Documentation |
Create buttons grouped that act like checkboxes.
checkboxGroupButtons(
inputId,
label = NULL,
choices = NULL,
selected = NULL,
status = "default",
size = "normal",
direction = "horizontal",
justified = FALSE,
individual = FALSE,
checkIcon = list(),
width = NULL,
choiceNames = NULL,
choiceValues = NULL,
disabled = FALSE
)
inputId |
The |
label |
Display label for the control, or |
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 |
selected |
The values that should be initially selected, if any. |
status |
Add a class to the buttons, you can use Bootstrap status like 'info', 'primary', 'danger', 'warning' or 'success'.
Or use an arbitrary strings to add a custom class, e.g. : with |
size |
Size of the buttons ('xs', 'sm', 'normal', 'lg') |
direction |
Horizontal or vertical |
justified |
If TRUE, fill the width of the parent div |
individual |
If TRUE, buttons are separated. |
checkIcon |
A list, if no empty must contain at least one element named 'yes' corresponding to an icon to display if the button is checked. |
width |
The width of the input, e.g. |
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, |
disabled |
Initialize buttons in a disabled state (users won't be able to select a value). |
A buttons group control that can be added to a UI definition.
updateCheckboxGroupButtons()
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
tags$h1("checkboxGroupButtons examples"),
checkboxGroupButtons(
inputId = "somevalue1",
label = "Make a choice: ",
choices = c("A", "B", "C")
),
verbatimTextOutput("value1"),
checkboxGroupButtons(
inputId = "somevalue2",
label = "With custom status:",
choices = names(iris),
status = "primary"
),
verbatimTextOutput("value2"),
checkboxGroupButtons(
inputId = "somevalue3",
label = "With icons:",
choices = names(mtcars),
checkIcon = list(
yes = icon("square-check"),
no = icon("square")
)
),
verbatimTextOutput("value3")
)
server <- function(input, output) {
output$value1 <- renderPrint({ input$somevalue1 })
output$value2 <- renderPrint({ input$somevalue2 })
output$value3 <- renderPrint({ input$somevalue3 })
}
if (interactive())
shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.