adminlte_color: AdminLTE CSS colors variables

In fresh: Create Custom 'Bootstrap' Themes to Use in 'Shiny'

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 \Sexpr[results=rd, stage=install]{fresh:::rd_col("#3c8dbc")}.
red	Red (danger status), default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#dd4b39")}.
green	Green (success status), default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#00a65a")}.
aqua	Aqua (info status), default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#00c0ef")}.
yellow	Yellow (warning status), default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#f39c12")}.
blue	Blue, default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#0073b7")}.
navy	Navy, default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#001F3F")}.
teal	Teal, default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#39CCCC")}.
olive	Olive, default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#3D9970")}.
lime	Lime, default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#01FF70")}.
orange	Orange, default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#FF851B")}.
fuchsia	Fuchsia, default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#F012BE")}.
purple	Purple, default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#605ca8")}.
maroon	Maroon, default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#D81B60")}.
black	Black, default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#111")}.
gray_lte	Gray, default to \Sexpr[results=rd, stage=install]{fresh:::rd_col("#d2d6de")}.

Value

a list that can be used in create_theme.

Examples

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)
}

fresh documentation built on July 2, 2020, 1:59 a.m.