Create a Boostrap 4 card
Build an adminLTE3 card
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 = TRUE, maximizable = FALSE, labelStatus = NULL, labelText = NULL, labelTooltip = NULL, dropdownMenu = NULL, dropdownIcon = "wrench", overflow = FALSE, enable_sidebar = FALSE, sidebar_content = NULL, sidebar_width = "25%", sidebar_background = "#333a40", sidebar_start_open = FALSE, sidebar_icon = "cogs" ) 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 = TRUE, maximizable = FALSE, labelStatus = NULL, labelText = NULL, labelTooltip = NULL, dropdownMenu = NULL, dropdownIcon = "wrench", overflow = FALSE, enable_sidebar = FALSE, sidebar_content = NULL, sidebar_width = "25%", sidebar_background = "#333a40", sidebar_start_open = FALSE, sidebar_icon = "cogs" )
... |
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 |
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
|
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. |
labelStatus |
status of the box label: "primary", "secondary", "success", "warning", "danger", "white", "light", "dark", "transparent". |
labelText |
Label text. |
labelTooltip |
Label tooltip displayed on hover. |
dropdownMenu |
List of items in the the boxtool dropdown menu. Use dropdownItemList. |
dropdownIcon |
Dropdown icon. "wrench" by default. |
overflow |
Whether to enable overflow in the card body and footer. FALSE by default. |
enable_sidebar |
Whether to display the box sidebar. FALSE by default. |
sidebar_content |
Box sidebar content, if any. |
sidebar_width |
Box sidebar width in percentage. 25% by default. A character value of any width CSS understands (e.g. "100px") |
sidebar_background |
Box sidebar background color. Dark by default. |
sidebar_start_open |
Whether the box sidebar is open at start. FALSE by default. |
sidebar_icon |
Box sidebar icon. |
David Granjon, dgranjon@ymail.com
Other cards:
bs4InfoBox()
,
bs4TabCard()
,
bs4ValueBox()
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, labelText = 1, labelStatus = "danger", labelTooltip = "Hi Bro!", dropdownIcon = "wrench", 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, status = "warning", 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( title = "Maximizable Card", width = 6, status = "warning", closable = FALSE, maximizable = TRUE, collapsible = FALSE, sliderInput("obs", "Number of observations:", min = 0, max = 1000, value = 500 ), plotOutput("distPlot") ) ) ) ), server = function(input, output) { output$distPlot <- renderPlot({ hist(rnorm(input$obs)) }) } ) }
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.