shiny.semantic (version 0.5.1)

accordion: Accordion UI

Description

In accordion you may display a list of elements that can be hidden or shown with one click.

Usage

accordion(
  accordion_list,
  fluid = TRUE,
  active_title = "",
  styled = TRUE,
  custom_style = ""
)

Value

shiny tag list with accordion UI

Arguments

accordion_list

list with lists with fields: `title` and `content`

fluid

if accordion is fluid then it takes width of parent div

active_title

if active title matches `title` from accordion_list then this element is active by default

styled

if switched of then raw style (no boxes) is used

custom_style

character with custom style added to CSS of accordion (advanced use)

Examples

if (interactive()) {
library(shiny)
library(shiny.semantic)
accordion_content <- list(
  list(title = "AA", content = h2("a a a a")),
  list(title = "BB", content = p("b b b b"))
)
shinyApp(
  ui = semanticPage(
    accordion(accordion_content, fluid = F, active_title = "AA",
              custom_style = "background: #babade;")
  ),
  server = function(input, output) {}
)
}