Dashboard Page with a right sidebar
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. |
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) { }
)
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.