This function makes it a little easier to make Bootstrap-friendly panels; it wraps htmltools::tags for panels

bs_panel(
  id = NULL,
  panel_type = c("default", "primary", "success", "info", "warning", "danger"),
  heading = NULL,
  body = NULL,
  ...,
  footer = NULL
)

Arguments

id

character, unique identifier

panel_type

character, one of the standard Bootstrap types

heading

character (HTML) or htmltools::tagList(), content for the heading

body

character (HTML) or htmltools::tagList(), content for the body

...

character (HTML) or htmltools::tagList(), other content

footer

character (HTML) or htmltools::tagList(), content for the footer

Value

Object with S3 class, shiny.tag, <div/>

See also

Examples

library("htmltools") bs_panel( panel_type = "primary", heading = tags$h3("title"), body = tags$p("Some very important content") )
#> <div class="panel panel-primary"> #> <h3>title</h3> #> <p>Some very important content</p> #> </div>