Those variables can be used to customize defaults colors in shinydashboard.
adminlte_color( light_blue = NULL, red = NULL, green = NULL, aqua = NULL, yellow = NULL, blue = NULL, navy = NULL, teal = NULL, olive = NULL, lime = NULL, orange = NULL, fuchsia = NULL, purple = NULL, maroon = NULL, black = NULL, gray_lte = NULL )
light_blue | Light blue (primary status), default to #3c8dbc . |
---|---|
red | Red (danger status), default to #dd4b39 . |
green | Green (success status), default to #00a65a . |
aqua | Aqua (info status), default to #00c0ef . |
yellow | Yellow (warning status), default to #f39c12 . |
blue | Blue, default to #0073b7 . |
navy | Navy, default to #001F3F . |
teal | Teal, default to #39CCCC . |
olive | Olive, default to #3D9970 . |
lime | Lime, default to #01FF70 . |
orange | Orange, default to #FF851B . |
fuchsia | Fuchsia, default to #F012BE . |
purple | Purple, default to #605ca8 . |
maroon | Maroon, default to #D81B60 . |
black | Black, default to #111 . |
gray_lte | Gray, default to #d2d6de . |
a list
that can be used in create_theme
.
adminlte_color( light_blue = "#086A87", aqua = "#A9D0F5", green = "#0B3B0B", purple = "#610B4B" )#> $`light-blue` #> [1] "#086A87" #> #> $green #> [1] "#0B3B0B" #> #> $aqua #> [1] "#A9D0F5" #> #> $purple #> [1] "#610B4B" #> #> attr(,"class") #> [1] "fresh_sass_vars" "adminlte_vars" "list"if (interactive()) { library(shiny) library(shinydashboard) ui <- dashboardPage( header = dashboardHeader(title = "My dashboard"), sidebar = dashboardSidebar( sidebarMenu( menuItem( "Dashboard", tabName = "dashboard", icon = icon("dashboard") ) ) ), body = dashboardBody( use_theme(create_theme( adminlte_color( light_blue = "#086A87", aqua = "#A9D0F5", green = "#0B3B0B", purple = "#610B4B" ) )), tabItems( tabItem( "dashboard", # infoBoxes fluidRow( infoBox( "Orders", uiOutput("orderNum2"), "Subtitle", icon = icon("credit-card") ), infoBox( "Approval Rating", "60%", icon = icon("line-chart"), color = "green", fill = TRUE ), infoBox( "Progress", "20%", icon = icon("users"), color = "purple" ) ), # valueBoxes fluidRow( valueBox( 5846, "New Orders", icon = icon("credit-card"), href = "http://google.com" ), valueBox( tagList("60", tags$sup(style="font-size: 20px", "%")), "Approval Rating", icon = icon("line-chart"), color = "green" ), valueBox( "42%", "Progress", icon = icon("users"), color = "purple" ) ) ) ) ) ) server <- function(input, output, session) { } shinyApp(ui, server) }