sa_checkboxgroup: Checkbox group input
In leonawicz/shinyaccess: Web Accessibility in Shiny

Description Usage Arguments Value Examples

View source: R/checkboxgroup.R

A Shiny checkbox group input.

sa_checkboxgroup(
  inputId,
  label,
  choices = NULL,
  selected = NULL,
  color = "#555555",
  ncol = 1,
  inline = FALSE,
  width = NULL,
  choiceNames = NULL,
  choiceValues = NULL
)

update_sa_checkboxgroup(
  session,
  inputId,
  label = NULL,
  choices = NULL,
  selected = NULL,
  ncol = 1,
  inline = FALSE,
  choiceNames = NULL,
  choiceValues = NULL
)

`inputId`	The id of the input object.
`label`	The label to set for the input object.
`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 `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.
`selected`	The values that should be initially selected, if any.
`color`	character, hex or R color name.
`ncol`	number of columns when `inline = FALSE`. Will auto-truncate to the number of choices if exceeded.
`inline`	if `TRUE`, `ncol` is ignored.
`width`	not in use
`choiceNames, choiceValues`	See `shiny::checkboxgroup`. Vector of names and values, must have same length.
`session`	The session object passed to function given to shinyServer.

A list of HTML elements that can be added to a UI definition.

if (interactive()) {
library(shiny)

ui <- function(request) {
fluidPage(
  use_access(),
  fluidRow(bookmarkButton()),
  fluidRow(
    column(3,
      actionButton("btn1", "Reset checkbox group 1"),
      checkboxGroupInput(
        "cb1", "Shiny1 - Variables to show:",
        list("Cylinders" = "cyl", "Transmission" = "am", "Gears" = "gear"),
        width = "1000px"),
      tableOutput("data1")
    ),
    column(3,
      checkboxGroupInput(
        "cb2", "Shiny2 - Variables to show:",
        list("Cylinders" = "cyl", "Transmission" = "am", "Gears" = "gear"),
        inline = TRUE),
      tableOutput("data2")
    ),
    column(3,
      actionButton("btn3", "Reset checkbox group 3"),
      sa_checkboxgroup(
        "cb3", "SA1 - Variables to show:",
        c("Cylinders" = "cyl", "Transmission" = "am", "Gears" = "gear", "A" = "a", "B" = "b"),
        selected = c("cyl", "am"), color = "dodgerblue", ncol = 3),
      tableOutput("data3")
    ),
    column(3,
    actionButton("btn4", "Update everything (see source code for details)"),
      sa_checkboxgroup(
        "cb4", "SA2 - Variables to show:",
        selected = c("cyl", "am"), color = "firebrick",
        choiceNames = c("Cylinders", "Transmission", "Gears"),
        choiceValues = c("cyl", "am", "gear"), inline = TRUE),
      tableOutput("data4")
    )
  )
)
}

server <- function(input, output, session) {
  output$data1 <- renderTable({
    mtcars[, c("mpg", input$cb1), drop = FALSE]
  }, rownames = TRUE)

  output$data2 <- renderTable({
    mtcars[, c("mpg", input$cb2), drop = FALSE]
  }, rownames = TRUE)
  output$data3 <- renderTable({
    mtcars[, c("mpg", input$cb3), drop = FALSE]
  }, rownames = TRUE)

  output$data4 <- renderTable({
    mtcars[, c("mpg", input$cb4), drop = FALSE]
  }, rownames = TRUE)

  observeEvent(input$btn1, {
    updateCheckboxgroup(session, "cb1", selected = character(0))
  })
  observeEvent(input$btn3, {
    update_sa_checkboxgroup(session, "cb3",
      label = "New title!", selected = c("cyl", "a")
    )
  })
  observeEvent(input$btn4, {
    update_sa_checkboxgroup(session, "cb4",
      label = "New title!",
      choices = c("am", "gear", "hello world"),
      ncol = 2,
      selected = c("am", "gear")
    )
  })
}

shinyApp(ui, server, enableBookmarking = "url")

}