inst/examples/geodude/R/theme.R

In ghcarlalan/graveler: Builds standardized, modular shiny dashboard frameworks

theme_dashboard <- function() {
  primary <- "#6D6855"
  accent <- "#B2AF98"
  secondary <- "#BD8301"

  dashboardthemes::shinyDashboardThemeDIY(

    #general
    appFontFamily = "Helvetica"
    ,appFontColor = "#696969"
    ,primaryFontColor = "#696969"
    ,infoFontColor = "#696969"
    ,successFontColor = "#696969"
    ,warningFontColor = "#696969"
    ,dangerFontColor = "#696969"
    ,bodyBackColor = "#F8F8F8"

    #header
    ,logoBackColor = primary
    ,headerButtonBackColor = primary
    ,headerButtonIconColor = "white"
    ,headerButtonBackColorHover = accent
    ,headerButtonIconColorHover = "white"
    ,headerBackColor = primary
    ,headerBoxShadowColor = "#aaaaaa"
    ,headerBoxShadowSize = "0px 0px 0px"

    #sidebar
    ,sidebarBackColor = "#EDEDED"

    ,sidebarPadding = 0

    ,sidebarMenuBackColor = "transparent"
    ,sidebarMenuPadding = 0
    ,sidebarMenuBorderRadius = 0

    ,sidebarShadowRadius = "0px 0px 0px"
    ,sidebarShadowColor = "#aaaaaa"

    ,sidebarUserTextColor = "#696969"

    ,sidebarSearchBackColor = "rgb(55,72,80)"
    ,sidebarSearchIconColor = "rgb(153,153,153)"
    ,sidebarSearchBorderColor = "rgb(55,72,80)"

    ,sidebarTabTextColor = "#696969"
    ,sidebarTabTextSize = 13
    ,sidebarTabBorderStyle = "none none none solid"
    ,sidebarTabBorderColor = "transparent"
    ,sidebarTabBorderWidth = 5
    ,sidebarTabBackColorSelected = "transparent"
    ,sidebarTabTextColorSelected = primary
    ,sidebarTabRadiusSelected = "0px 0px 0px 0px"
    ,sidebarTabBackColorHover = "#EDEDED"
    ,sidebarTabTextColorHover = accent
    ,sidebarTabBorderStyleHover = "none none none solid"
    ,sidebarTabBorderColorHover = secondary
    ,sidebarTabBorderWidthHover = 5
    ,sidebarTabRadiusHover = "0px 0px 0px 0px"

    ### boxes
    ,boxBackColor = "white"
    ,boxBorderRadius = 5
    ,boxShadowSize = "0px 0px 0px"
    ,boxShadowColor = paste0(primary,"30")
    ,boxTitleSize = 16
    ,boxDefaultColor = "white"
    ,boxPrimaryColor = "white"
    ,boxInfoColor = "rgb(210,214,220)"
    ,boxSuccessColor = "rgba(0,255,213,1)"
    ,boxWarningColor = "rgb(244,156,104)"
    ,boxDangerColor = "rgb(255,88,55)"

    ,tabBoxTabColor = "white"
    ,tabBoxTabTextSize = 12
    ,tabBoxTabTextColor = "#696969"
    ,tabBoxTabTextColorSelected = primary
    ,tabBoxBackColor = "white"
    ,tabBoxHighlightColor = primary
    ,tabBoxBorderRadius = 0

    ### inputs
    ,buttonBackColor = "rgb(245,245,245)"
    ,buttonTextColor = "rgb(0,0,0)"
    ,buttonBorderColor = "rgb(200,200,200)"
    ,buttonBorderRadius = 5
    ,buttonBackColorHover = "rgb(235,235,235)"
    ,buttonTextColorHover = "rgb(100,100,100)"
    ,buttonBorderColorHover = "rgb(200,200,200)"
    ,textboxBackColor = "rgb(255,255,255)"
    ,textboxBorderColor = "rgb(200,200,200)"
    ,textboxBorderRadius = 5
    ,textboxBackColorSelect = "rgb(245,245,245)"
    ,textboxBorderColorSelect = "rgb(200,200,200)"

    ### tables
    ,tableBackColor = NA
    ,tableBorderColor = NA
    ,tableBorderTopSize = 1
    ,tableBorderRowSize = 1
  )
} #theme