R/celgene_theme.R

In nicholasjkomarov/celgenethemes: What the Package Does (One Line, Title Case)

celgene_theme <- function() {

  shinyDashboardThemeDIY(

    ### general
    appFontFamily = "Arial",
    appFontColor = "#08184C",
    bodyBackColor = "#EBEFF0",

    ### header
    logoBackColor = "#F8F8F8",

    headerButtonBackColor = "#F8F8F8",
    headerButtonIconColor = "#293E81",
    headerButtonBackColorHover = "#293E81",
    headerButtonIconColorHover = "#F8F8F8",

    headerBackColor = "#F8F8F8",
    headerBoxShadowColor = "",
    headerBoxShadowSize = "0px 0px 0px",

    ### sidebar
    sidebarBackColor = "#293E81",
    sidebarPadding = 0,

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

    sidebarShadowRadius = "",
    sidebarShadowColor = "#9E9E9E",

    sidebarUserTextColor = "#F8F8F8",

    sidebarSearchBackColor = "#F8F8F8",
    sidebarSearchIconColor = "#F8F8F8",
    sidebarSearchBorderColor = "#F8F8F8",

    sidebarTabTextColor = "#F8F8F8",
    sidebarTabTextSize = 16,
    sidebarTabBorderStyle = "none",
    sidebarTabBorderColor = "none",
    sidebarTabBorderWidth = 0,

    sidebarTabBackColorSelected = "#D2E1EC",
    sidebarTabTextColorSelected = "#263137",
    sidebarTabRadiusSelected = "0px",

    sidebarTabBackColorHover = "#D8AE51",
    sidebarTabTextColorHover = "#F8F8F8",
    sidebarTabBorderStyleHover = "none",
    sidebarTabBorderColorHover = "none",
    sidebarTabBorderWidthHover = 0,
    sidebarTabRadiusHover = "0px",

    ### boxes
    boxBackColor = "#F8F8F8",
    boxBorderRadius = 5,
    boxShadowSize = "3px 3px 3px",
    boxShadowColor = "#CACACA",
    boxTitleSize = 22,
    boxDefaultColor = "#DFDFDF",
    boxPrimaryColor = "#4F82A3",
    boxSuccessColor = "#289781",
    boxWarningColor = "rgb(178,83,149)",
    boxDangerColor = "rgb(207,57,92)",

    tabBoxTabColor = "#F8F8F8",
    tabBoxTabTextSize = 20,
    tabBoxTabTextColor = "#4F82A3",
    tabBoxTabTextColorSelected = "#289781",
    tabBoxBackColor = "#F8F8F8",
    tabBoxHighlightColor = "#289781",
    tabBoxBorderRadius = 0,

    ### inputs
    buttonBackColor = "#4AA1c6",
    buttonTextColor = "#F8F8F8",
    buttonBorderColor = "#4AA1c6",
    buttonBorderRadius = 5,

    buttonBackColorHover = "#0972A0",
    buttonTextColorHover = "#F8F8F8",
    buttonBorderColorHover = "#0972A0",

    textboxBackColor = "#FFFFF",
    textboxBorderColor = "rgb(118,118,118)",
    textboxBorderRadius = 0,
    textboxBackColorSelect = "rgb(255,255,255)",
    textboxBorderColorSelect = "rgb(118,118,118)",

    ### tables
    tableBackColor = "rgb(248,248,248)",
    tableBorderColor = "rgb(235,235,235)",
    tableBorderTopSize = 1,
    tableBorderRowSize = 1

  )
}