collapseButton | R Documentation |
Collapse button.
collapseButton(..., id = NULL, class = "")
... |
Passed to the button. |
id |
Button id. |
class |
Additional classes to pass to the button. |
library(shiny)
ui <- fluidPage(
theme = bslib::bs_theme(version = 5L),
collapse(
collapseButton(
"Reveal"
),
collapseContent(
"Some collapsed content"
)
)
)
server <- \(input, output, session){
}
if(interactive())
shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.