checkbox_group: checkbox_group

In InControlofEffects/iceComponents: A set of custom components used in the In Control of Effects application

Description

Create a custom checkbox input group

Usage

checkbox_group(
  inputId,
  title,
  caption = NULL,
  choices,
  values = NULL,
  checked = FALSE
)

Arguments

inputId	a unique id for the input group
title	a title for the inputs
caption	an optional caption to display
choices	an array of choices
values	an array of values to display
checked	an array of logical values to check an input at start

Examples

if (interactive()) {
  librar(shiny)
  ui <- tagList(
    iceComponents::use_iceComponents(),
    tags$h2("Checkbox group example"),
    iceComponents::checkbox_group(
      inputId = "pizza_toppings",
      title = "Your favorite pizza toppings",
      caption = "Select your favorite toppings",
      choices = c(
        "Pepperoni",
        "Mushrooms",
        "Onions",
        "Sausage",
        "Bacon",
        "Extra Cheese",
        "Black Olives",
      ),
      checked = TRUE
    ),
    tags$button(
      id = "reset",
      class = "shiny-bound-input action-button",
      "Reset Toppings"
    ),
    tags$button(
      id = "clear",
      class = "shiny-bound-input action-button",
      "Clear Selections"
    )
  )
  server <- function(input, output) {
    observe({
      print(input$pizza_toppings)
    })
    observeEvent(input$reset, {
      iceComponents::reset_checkbox_group(inputId = "pizza_toppings")
    })
    observeEvent(input$clear, {
      iceComponents::clear_checkbox_group(inputId = "pizza_toppings")
    })
  }
  shinyApp(ui, server)
}

InControlofEffects/iceComponents documentation built on April 1, 2021, 5:51 a.m.