R: Create a box for the main body of a dashboard

boxPlus {shinydashboardPlus}

R Documentation

Create a box for the main body of a dashboard

Description

Boxes can be used to hold content in the main body of a dashboard.

Usage

boxPlus(..., title = NULL, footer = NULL, status = NULL,
  solidHeader = FALSE, background = NULL, width = 6, height = NULL,
  collapsible = FALSE, collapsed = FALSE, closable = TRUE,
  enable_label = FALSE, label_text = NULL, label_status = "primary",
  enable_dropdown = FALSE, dropdown_icon = "wrench",
  dropdown_menu = NULL, enable_sidebar = FALSE,
  sidebar_content = NULL, sidebar_width = 25,
  sidebar_background = "#222d32", sidebar_start_open = FALSE,
  footer_padding = TRUE)

Arguments

`...`	Contents of the box.
`title`	Optional title.
`footer`	Optional footer text.
`status`	The status of the item This determines the item's background color. Valid statuses are listed in validStatuses.
`solidHeader`	Should the header be shown with a solid color background?
`background`	If NULL (the default), the background of the box will be white. Otherwise, a color string. Valid colors are listed in validColors.
`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 valueBox 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.
`enable_label`	Whether to display a label in the boxtool.
`label_text`	label text.
`label_status`	status of the box label: "danger", "success", "info", "primary", "warning".
`enable_dropdown`	Whether to display a dropdown menu in the boxtool. FALSE by default.
`dropdown_icon`	Dropdown icon. "wrench" by default.
`dropdown_menu`	List of items in the the boxtool dropdown menu. Use dropdownItemList().
`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. Numeric value between 0 and 100.
`sidebar_background`	Box sidebar background color. Dark by default.
`sidebar_start_open`	Whether the box sidebar is open at start. FALSE by default.
`footer_padding`	TRUE by default: whether the footer has margin or not.

Examples

## Only run this example in interactive R sessions
if (interactive()) {
 library(shiny)
 library(shinydashboard)

 shinyApp(
   ui = dashboardPagePlus(
     dashboardHeaderPlus(),
     dashboardSidebar(),
     dashboardBody(
      fluidRow(
       boxPlus(
        title = "Closable Box with dropdown", 
         closable = TRUE, 
         status = "warning", 
         solidHeader = FALSE, 
         collapsible = TRUE,
         enable_dropdown = TRUE,
         dropdown_icon = "wrench",
         dropdown_menu = 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")
       ),
       boxPlus(
        title = "Closable box, with label", 
         closable = TRUE, 
         enable_label = TRUE,
         label_text = 1,
         label_status = "danger",
         status = "warning", 
         solidHeader = FALSE, 
         collapsible = TRUE,
         p("Box Content")
       )
     )
    )
   ),
   server = function(input, output) {}
 )
 
 # boxPlus with sidebar
 shinyApp(
  ui = dashboardPagePlus(
    dashboardHeaderPlus(),
    dashboardSidebar(),
    dashboardBody(
      setShadow("box"),
      fluidRow(
        boxPlus(
          title = "Closable Box with dropdown", 
          closable = TRUE, 
          status = "warning", 
          solidHeader = FALSE, 
          collapsible = TRUE,
          enable_sidebar = TRUE,
          sidebar_width = 25,
          sidebar_start_open = TRUE,
          sidebar_content = sliderInput(
           "obs", 
           "Number of observations:",
           min = 0, 
           max = 1000, 
           value = 500
          ),
          plotOutput("distPlot")
        )
      )
    )
  ),
  server = function(input, output) {
    output$distPlot <- renderPlot({
      hist(rnorm(input$obs))
    })
  }
 )
}

[Package shinydashboardPlus version 0.6.0 Index]