dqshiny (version 0.0.3)

dq_accordion: Accordion module to show several collapsible boxes

Description

Creates an accordion object where one of the contents can be shown and the others will be hidden. The currently activated panel will be available to R over the input$id element.

Usage

dq_accordion(id, titles, contents, options = NULL, sortable = FALSE,
  bg_color = "#ff8f00", hover = TRUE, style = "", icons = c(rotate
  = "angle-right"))

Arguments

id

id of the element

titles

character, titles to show in the accordion headers

contents

list of contents, can be character, shiny tags, nested lists of shiny tags ...

options

optional list of jquery-ui options to customize accordions behavior, for a full list of possible options have a look at: http://api.jqueryui.com/accordion

sortable

optional logical indicating whether the accordion parts should be rearrangeable or not

bg_color

optional character specifying the background color of the headers, can be any valid HTML color code

hover

optional logical indicating whether headers should have an hover effect or not

style

optional character for additional header style attributes

icons

optional named character vector of length one or two indicating the FontAwesome icons to be used in front of the header title showing the state of the content (open or closed)

Value

shiny div holding the accordion

Examples

# NOT RUN {
## Only run examples in interactive R sessions
if (interactive()) {

library(shiny)
titles <- c("Section 1", "Section 2", "Section 3")
contents <- list("Lorem ipsum..", "Lorem ipsum..", tags$p("Lorem ipsum.."))
shinyApp(
  ui = fluidPage(
    fluidRow(
      column(5, dq_accordion("myAccordion", titles, contents, hover = FALSE,
        style = "border:1px solid red;margin-top: 5px;color: red;"
      ), dq_space(),
      dq_accordion("myAccordion2", titles, contents,
        bg_color = NULL, options = list(animate = 500, collapsible = TRUE),
        icons = c(open = "hand-point-down", closed = "hand-point-right")
      ), dq_space(),
      dq_accordion("myAccordion3", titles, contents,
        bg_color = "pink", icons = NULL, sortable = TRUE
      ))
    )
  ), server = function(input, output) {
    observeEvent(input$myAccordion, print(input$myAccordion))
  }
)

}
# }