tests-manual/repro_issues_17.R

## 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
)
gyang274/ygdashboard documentation built on Jan. 6, 2018, 12:50 a.m.