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) { } ) }