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 )
width | Side bar width, default to |
---|---|
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). |
a list
that can be used in create_theme
.
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) }