AdminLTE CSS sidebar variables — adminlte

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