fresh (version 0.1.0)

adminlte_color: AdminLTE CSS colors variables

Description

Those variables can be used to customize defaults colors in shinydashboard.

Usage

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)

Arguments

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.

Value

a list that can be used in create_theme.

Examples

# NOT RUN {
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)
}
# }