View source: R/dashboardPage.R
| dashboardPage | R Documentation | 
This creates a dashboard page for use in a Shiny app.
dashboardPage(
  header,
  sidebar,
  body,
  controlbar = NULL,
  footer = NULL,
  title = NULL,
  skin = c("blue", "blue-light", "black", "black-light", "purple", "purple-light",
    "green", "green-light", "red", "red-light", "yellow", "yellow-light", "midnight"),
  freshTheme = NULL,
  preloader = NULL,
  md = FALSE,
  options = NULL,
  scrollToTop = FALSE
)
header | 
 A header created by   | 
sidebar | 
 A sidebar created by   | 
body | 
 A body created by   | 
controlbar | 
 A right sidebar created by dashboardControlbar. NULL by default.  | 
footer | 
 A footer created by dashboardFooter.  | 
title | 
 A title to display in the browser's title bar. If no value is
provided, it will try to extract the title from the
  | 
skin | 
 A color theme. See https://adminlte.io/themes/AdminLTE/pages/UI/general.html. If the skin is light, the sidebar will have a light background. Not compatible with freshTheme.  | 
freshTheme | 
 A skin powered by the fresh package. Not compatible with skin. See https://dreamrs.github.io/fresh/articles/vars-shinydashboard.html.  | 
preloader | 
 shinydashboardPlus uses waiter (see https://waiter.john-coene.com/#/).
Pass a list like   | 
md | 
 Whether to enable material design. Experimental...  | 
options | 
 Extra option to overwrite the vanilla AdminLTE configuration. See https://adminlte.io/themes/AdminLTE/documentation/index.html#adminlte-options. Expect a list.  | 
scrollToTop | 
 Whether to display a scroll to top button whenever the page height is too large. Default to FALSE.  | 
dashboardHeader, dashboardSidebar,
dashboardBody.
if (interactive()) {
 library(shiny)
 library(shinydashboard)
 library(shinydashboardPlus)
 library(fresh)
 
 shinyApp(
   ui = dashboardPage(
     freshTheme = create_theme(
      adminlte_color(
        light_blue = "#55e7ff",
        blue = "#2011a2",
        navy = "#201148",
        red = "#ff34b3"
      ),
      adminlte_sidebar(
        dark_bg = "#D8DEE9",
        dark_hover_bg = "#81A1C1",
        dark_color = "#2E3440"
      ),
      adminlte_global(
        content_bg = "#FFF",
        box_bg = "#D8DEE9", 
        info_box_bg = "#D8DEE9"
      )
     ),
     options = list(sidebarExpandOnHover = TRUE),
     header = dashboardHeader(),
     sidebar = dashboardSidebar(),
     body = dashboardBody(
      box(background = "red"),
      box(background = "blue"),
      box(background = "navy")
     ),
     controlbar = dashboardControlbar(),
     title = "DashboardPage"
   ),
   server = function(input, output) { }
 )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.