# Basic construction with simple header and content
if (interactive()) {
library(shiny)
ui <- fluidPage(
actionButton("new", "New"),
accordion(
"acc",
accordionItem("first", "Hello", "There", active = TRUE),
accordionItem("second", "General", "Kenobi")
)
)
server <- function(input, output, session) {
observeEvent(input$new, {
addAccordionItem("acc", accordionItem(sample(letters, 1), "New", "Accordion", active = TRUE))
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab