# NOT RUN {
if (interactive()) {
 library(shiny)
 library(shinydashboard)
 shinyApp(
  ui = dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
      accordion(
       inputId = "accordion1",
        accordionItem(
          title = "Accordion 1 Item 1",
          color = "danger",
          collapsed = TRUE,
          "This is some text!"
        ),
        accordionItem(
          title = "Accordion 1 Item 2",
          color = "warning",
          collapsed = FALSE,
          "This is some text!"
        )
      ),
      accordion(
       inputId = "accordion2",
        accordionItem(
          title = "Accordion 2 Item 1",
          color = "danger",
          collapsed = TRUE,
          "This is some text!"
        ),
        accordionItem(
          title = "Accordion 2 Item 2",
          color = "warning",
          collapsed = FALSE,
          "This is some text!"
        )
      )
    ),
    title = "Accordion"
  ),
  server = function(input, output) { }
 )
}
# }
Run the code above in your browser using DataLab