# NOT RUN {
## Only run examples in interactive R sessions
if (interactive()) {
library(shiny)
shinyApp(
ui = fluidPage(
fluidRow(
dq_box(title = "I need space!!", dq_space(200)),
dq_box(
title = "I need more space", collapsible = TRUE, collapsed = TRUE,
"...but I'm collapsible!", dq_space("50vh")
)
)),
server = function(input, output) {
}
)
}
# }
Run the code above in your browser using DataLab