## Tries to reproduce Github Issue: https://github.com/rstudio/shinydashboard/issues/17
library(shiny)
library(shinydashboard)
body <- dashboardBody(
uiOutput("ui")
)
server <- function(input, output) {
output$ui <- renderUI({
box(title = "Collapse me",
status = "warning", solidHeader = TRUE, collapsible = TRUE
)
})
}
shinyApp(
ui = dashboardPage(
dashboardHeader(),
dashboardSidebar(),
body
),
server = server
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.