AdminLTE CSS colors variables
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"
)
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)
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.