ui <- container(
buttonInput(
id = "demo",
label = "Toggle collapse"
),
collapsePane(
id = "collapse",
p(
"Pellentesque condimentum, magna ut suscipit hendrerit, ",
"ipsum augue ornare nulla, non luctus diam neque sit amet urna."
),
p(
"Praesent fermentum tempor tellus. Vestibulum convallis, ",
"lorem a tempus semper, dui dui euismod elit, vitae placerat ",
"urna tortor vitae lacus."
)
)
)server <- function(input, output) {
observeEvent(input$demo, {
toggleCollapsePane("collapse")
})
}
shinyApp(ui, server)