Those variables can be used to customize the sidebar in shinydashboard.

adminlte_sidebar(
  width = NULL,
  dark_bg = NULL,
  dark_hover_bg = NULL,
  dark_color = NULL,
  dark_hover_color = NULL,
  dark_submenu_bg = NULL,
  dark_submenu_color = NULL,
  dark_submenu_hover_color = NULL,
  light_bg = NULL,
  light_hover_bg = NULL,
  light_color = NULL,
  light_hover_color = NULL,
  light_submenu_bg = NULL,
  light_submenu_color = NULL,
  light_submenu_hover_color = NULL
)

Arguments

width

Side bar width, default to 230px.

dark_bg

Background color (dark mode).

dark_hover_bg

Background hover color (dark mode).

dark_color

Text color (dark mode).

dark_hover_color

Text hover color (dark mode).

dark_submenu_bg

Background sub-menu color (dark mode).

dark_submenu_color

Text sub-menu color (dark mode).

dark_submenu_hover_color

Text sub-menu hover color (dark mode).

light_bg

Background color (light mode).

light_hover_bg

Background hover color (light mode).

light_color

Text color (light mode).

light_hover_color

Text hover color (light mode).

light_submenu_bg

Background sub-menu color (light mode).

light_submenu_color

Text sub-menu color (light mode).

light_submenu_hover_color

Text sub-menu hover color (light mode).

Value

a list that can be used in create_theme.

Examples

if (interactive()) {
  library(shiny)
  library(shinydashboard)

  ui <- dashboardPage(
    header = dashboardHeader(title = "My dashboard"),
    sidebar = dashboardSidebar(
      sidebarMenu(
        menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
        menuItem("Widgets", icon = icon("th"), tabName = "widgets", badgeLabel = "new",
                 badgeColor = "green"),
        menuItem("Charts", icon = icon("bar-chart-o"),
                 menuSubItem("Sub-item 1", tabName = "subitem1"),
                 menuSubItem("Sub-item 2", tabName = "subitem2")
        )
      )
    ),
    body = dashboardBody(

      use_theme(create_theme(
        adminlte_sidebar(
          dark_bg = "#F5A9A9",
          dark_hover_bg = "#8A0808"
        )
      ))
    )
  )

  server <- function(input, output, session) {

  }

  shinyApp(ui, server)
}