Create a panel (box) with basic border and padding, you can use Bootstrap status to style the panel, see http://getbootstrap.com/components/#panels.

panel(..., heading = NULL, footer = NULL, status = "default")

Arguments

...

UI elements to include inside the panel.

heading

Title for the panel in a plain header.

footer

Footer for the panel.

status

Bootstrap status for contextual alternative.

Value

A UI definition.

Examples

if (interactive()) { library("shiny") library("shinyWidgets") ui <- fluidPage( # Default panel( "Content goes here", checkboxInput(inputId = "id1", label = "Label") ), # With header and footer panel( "Content goes here", checkboxInput(inputId = "id2", label = "Label"), heading = "My title", footer = "Something" ), # With status panel( "Content goes here", checkboxInput(inputId = "id3", label = "Label"), heading = "My title", status = "primary" ) ) server <- function(input, output, session) { } shinyApp(ui = ui, server = server) }