tests-manual/repro_issues_17.R

In gyang274/ygdashboard: Create Dashboards with 'Shiny' and 'adminLTE'.

## 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
)