Create an enhanced box
gradientBox( ..., title = NULL, icon = NULL, gradientColor = NULL, boxToolSize = "sm", footer = NULL, width = 6, height = NULL, collapsible = TRUE, closable = FALSE, footerPadding = TRUE )
| ... | body content. |
|---|---|
| title | box title. |
| icon | header icon, if any. Expect |
| gradientColor | color of the box: see here for a list of valid colors https://adminlte.io/themes/AdminLTE/pages/UI/general.html. |
| boxToolSize | size of the toolbox: choose among "xs", "sm", "md", "lg". |
| footer | the box footer. |
| width | box width (between 1 and 12). |
| height | box height. |
| collapsible | If TRUE, display a button in the upper right that allows the user to collapse the box. |
| closable | If TRUE, display a button in the upper right that allows the user to close the box. |
| footerPadding | TRUE by default: whether the footer has margin or not. |
David Granjon, dgranjon@ymail.com
if (interactive()) { library(shiny) library(shinydashboard) library(shinydashboardPlus) shinyApp( ui = dashboardPage( dashboardHeader(), dashboardSidebar(), dashboardBody( gradientBox( title = "My gradient Box", icon = icon("th"), gradientColor = "teal", boxToolSize = "sm", footer = sliderInput( "obs", "Number of observations:", min = 0, max = 1000, value = 500 ), "This is a gradient box" ), gradientBox( title = "My gradient Box", icon = icon("heart"), gradientColor = "maroon", boxToolSize = "xs", closable = TRUE, footer = "The footer goes here. You can include anything", "This is a gradient box" ) ), title = "gradientBox" ), server = function(input, output) { } ) }