bs4Card: Create a Boostrap 4 card

In RX-PBB/bs4Mash: A 'Bootstrap 4' Version of 'shinydashboard'

Description

Build an adminLTE3 card

Usage

bs4Card(
  ...,
  inputId = NULL,
  title = NULL,
  footer = NULL,
  status = NULL,
  elevation = NULL,
  solidHeader = FALSE,
  headerBorder = TRUE,
  gradientColor = NULL,
  width = 6,
  height = NULL,
  collapsible = TRUE,
  collapsed = FALSE,
  closable = FALSE,
  maximizable = FALSE,
  label = NULL,
  dropdownMenu = NULL,
  overflow = FALSE,
  sidebar = NULL
)

box(
  ...,
  inputId = NULL,
  title = NULL,
  footer = NULL,
  status = NULL,
  elevation = NULL,
  solidHeader = FALSE,
  headerBorder = TRUE,
  gradientColor = NULL,
  width = 6,
  height = NULL,
  collapsible = TRUE,
  collapsed = FALSE,
  closable = FALSE,
  maximizable = FALSE,
  label = NULL,
  dropdownMenu = NULL,
  overflow = FALSE,
  sidebar = NULL
)

Arguments

...	Contents of the box.
inputId	Get the state of the card. Optional.
title	Optional title.
footer	Optional footer text.
status	The status of the card header. "primary", "secondary", "success", "warning", "danger", "white", "light", "dark", "transparent". NULL by default.
elevation	Card elevation.
solidHeader	Should the header be shown with a solid color background?
headerBorder	Whether to display a border between the header and body. TRUE by default
gradientColor	If NULL (the default), the background of the box will be white. Otherwise, a color string. "primary", "success", "warning" or "danger".
width	The width of the box, using the Bootstrap grid system. This is used for row-based layouts. The overall width of a region is 12, so the default width of 4 occupies 1/3 of that width. For column-based layouts, use NULL for the width; the width is set by the column that contains the box.
height	The height of a box, in pixels or other CSS unit. By default the height scales automatically with the content.
collapsible	If TRUE, display a button in the upper right that allows the user to collapse the box.
collapsed	If TRUE, start collapsed. This must be used with collapsible=TRUE.
closable	If TRUE, display a button in the upper right that allows the user to close the box.
maximizable	If TRUE, the card can be displayed in full screen mode.
label	Slot for bs4CardLabel.
dropdownMenu	List of items in the the boxtool dropdown menu. Use dropdownItemList.
overflow	Whether to enable overflow in the card body and footer. FALSE by default.
sidebar	Slot for bs4CardSidebar.

Author(s)

David Granjon, [e-mail]

See Also

Other cards: bs4InfoBox(), bs4TabCard(), bs4ValueBox()

Examples

if(interactive()){
 library(shiny)
 library(bs4Dash)

 shiny::shinyApp(
   ui = bs4DashPage(
    navbar = bs4DashNavbar(),
    sidebar = bs4DashSidebar(),
    controlbar = bs4DashControlbar(),
    footer = bs4DashFooter(),
    title = "test",
    body = bs4DashBody(
    fluidRow(
     column(
      width = 6,
      bs4Card(
       title = "Closable Box with dropdown", 
       closable = TRUE, 
       width = 12,
       status = "warning", 
       solidHeader = FALSE, 
       collapsible = TRUE,
       label = bs4CardLabel(
        text = 1,
        status = "danger",
        tooltip = "Hello!"
       ),
       dropdownMenu = dropdownItemList(
         dropdownItem(url = "http://www.google.com", name = "Link to google"),
         dropdownItem(url = "#", name = "item 2"),
         dropdownDivider(),
         dropdownItem(url = "#", name = "item 3")
       ),
       p("Box Content")
      )
     ),
     column(
      width = 6, 
      bs4Card(
       title = "Closable Box with gradient", 
       closable = TRUE, 
       width = 12,
       solidHeader = FALSE, 
       gradientColor = "success",
       collapsible = TRUE,
       p("Box Content")
      )
     )
     ),
     fluidRow(
      bs4Card(
       title = "Closable Box with solidHeader", 
       closable = TRUE, 
       width = 6,
       solidHeader = TRUE, 
       status = "primary",
       collapsible = TRUE,
       p("Box Content")
      ),
      bs4Card(
       inputId = "card4",
       title = "Maximizable Card", 
       width = 6,
       status = "warning", 
       closable = FALSE,
       maximizable = TRUE, 
       collapsible = TRUE,
       sliderInput("obs", "Number of observations:",
                   min = 0, max = 1000, value = 500
       ),
       plotOutput("distPlot")
      )
     )
    )
   ),
   server = function(input, output) {
    output$distPlot <- renderPlot({
     hist(rnorm(input$obs))
    })
   }
 )
}

RX-PBB/bs4Mash documentation built on April 11, 2020, 12:15 a.m.