bs4Dash sidebar skins light/dark
bs4Dash sidebar skins light/dark
bs4dash_sidebar_light( bg = NULL, hover_bg = NULL, color = NULL, hover_color = NULL, active_color = NULL, submenu_bg = NULL, submenu_color = NULL, submenu_hover_color = NULL, submenu_hover_bg = NULL, submenu_active_color = NULL, submenu_active_bg = NULL, header_color = NULL ) bs4dash_sidebar_dark( bg = NULL, hover_bg = NULL, color = NULL, hover_color = NULL, active_color = NULL, submenu_bg = NULL, submenu_color = NULL, submenu_hover_color = NULL, submenu_hover_bg = NULL, submenu_active_color = NULL, submenu_active_bg = NULL, header_color = NULL )
bg |
Background color. |
hover_bg |
Hover background color. |
color |
Color. |
hover_color |
Hover color. |
active_color |
Active color. |
submenu_bg |
Submenu background color. |
submenu_color |
Submenu color. |
submenu_hover_color |
Submenu hover color. |
submenu_hover_bg |
Submenu hover background color. |
submenu_active_color |
Submenu active color. |
submenu_active_bg |
Submenu active background color. |
header_color |
Header color. |
a list
that can be used in create_theme
.
# Change colors used in bs4Dash bs4dash_sidebar_light( bg = "#D7DF01", color = "#FF0000", active_color = "#00FF00", submenu_bg = "#00FFFF" ) if (interactive()) { library(shiny) library(bs4Dash) ui <- bs4DashPage( title = "bs4Dash Custom Sidebar", navbar = bs4DashNavbar(), sidebar = bs4DashSidebar( title = "bs4Dash Custom Sidebar", skin = "light", bs4SidebarHeader("Sidebar Title"), bs4SidebarMenu( bs4SidebarMenuItem( tabName = "menu1", text = "Menu 1", icon = "home" ), bs4SidebarMenuItem( tabName = "menu2", text = "Menu 2", icon = "th" ), bs4SidebarMenuItem( text = "Item List", icon = "bars", startExpanded = TRUE, bs4SidebarMenuSubItem( text = "Item 1", tabName = "item1", icon = "circle-thin" ), bs4SidebarMenuSubItem( text = "Item 2", tabName = "item2", icon = "circle-thin" ) ) ) ), body = bs4DashBody( use_theme(create_theme( bs4dash_sidebar_light( bg = "#D7DF01", color = "#FF0000", active_color = "#00FF00", submenu_bg = "#00FFFF" ) )) ) ) server <- function(input, output) { } shinyApp(ui, server) }
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.