inst/examples/calcite-accordion.R

In calcite: Bindings to the Calcite Design System 'JavaScript' Component Library

library(shiny)
devtools::load_all()

ui <- calcite_shell(
  calcite_accordion(
    id = "transportation_accordion",
    icon_type = "chevron",
    icon_position = "end",
    selection_mode = "multiple",

    calcite_accordion_item(
      id = "watercraft_item",
      heading = "Watercraft",
      description = "Yachts, boats, and dinghies",
      icon_start = "embark",
      expanded = TRUE,

      calcite_notice(
        open = TRUE,
        message = "Recommended for coastal use"
      )
    ),

    calcite_accordion_item(
      id = "automobiles_item",
      heading = "Automobiles",
      description = "Cars, trucks, and buses",
      icon_start = "car",

      calcite_notice(
        open = TRUE,
        message = "A good choice for inland adventure"
      )
    ),

    calcite_accordion_item(
      id = "aircraft_item",
      heading = "Aircraft",
      description = "Planes, helicopters, and jets",
      icon_start = "plane",

      calcite_notice(
        open = TRUE,
        message = "Cross continents quickly"
      )
    )
  ),

  h3("Watercraft Item State"),
  verbatimTextOutput("watercraft_output"),

  h3("Automobiles Item State"),
  verbatimTextOutput("automobiles_output"),

  h3("Aircraft Item State"),
  verbatimTextOutput("aircraft_output")
)

server <- function(input, output, session) {
  output$accordion_output <- renderPrint({
    input$transportation_accordion
  })

  output$watercraft_output <- renderPrint({
    input$watercraft_item
  })

  output$automobiles_output <- renderPrint({
    input$automobiles_item
  })

  output$aircraft_output <- renderPrint({
    input$aircraft_item
  })
}

shinyApp(ui, server)