adminlte_sidebar: AdminLTE CSS sidebar variables
In fresh: Create Custom 'Bootstrap' Themes to Use in 'Shiny'

adminlte_sidebar

R Documentation

AdminLTE CSS sidebar variables

Description

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

Usage

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

fresh documentation built on June 26, 2024, 5:06 p.m.