R/colour.R

In gaspardcc/PMMMF:

# Colour @shinyStat
# 
# sets dashboard colours
#
# elh

setLogoColour <- function(rrggbb)
{
  stopifnot(nchar(rrggbb)==6)
  return(paste0(".skin-blue .main-header .logo {background-color:#", rrggbb, ";}"))
}
setLogoHoverColour <- function(rrggbb)
{
  stopifnot(nchar(rrggbb)==6)
  return(paste0(".skin-blue .main-header .logo:hover {background-color:#", rrggbb, ";}"))
}
setNavBarColour <- function(rrggbb)
{
  stopifnot(nchar(rrggbb)==6)
  return(paste0(".skin-blue .main-header .navbar {background-color:#", rrggbb, ";}"))
}
setSideBarColour <- function(rrggbb)
{
  stopifnot(nchar(rrggbb)==6)
  return(paste0(".skin-blue .main-sidebar {background-color:#", rrggbb, ";}"))
}
setContentColour <- function(rrggbb)
{
  stopifnot(nchar(rrggbb)==6)
  return(paste0(".skin-blue .content-wrapper {background-color:#", rrggbb, ";}"))
}
setActiveTabColour <- function(bg, fg)
{
  stopifnot(nchar(bg)==6)
  stopifnot(nchar(fg)==6)
  return(paste0(".skin-blue .main-sidebar .sidebar .sidebar-menu .active a{background-color:#", bg, ";color:#", fg, ";}"))
}
setTabColour <- function(bg, fg)
{
  stopifnot(nchar(bg)==6)
  stopifnot(nchar(fg)==6)
  return(paste0(".skin-blue .main-sidebar .sidebar .sidebar-menu a{background-color:#", bg, ";color:#", fg, ";}"))
}

setTabHoverColour <- function(bg, fg)
{
  stopifnot(nchar(bg)==6)
  stopifnot(nchar(fg)==6)
  return(paste0(".skin-blue .main-sidebar .sidebar .sidebar-menu a:hover{background-color:#", bg, ";color:#", fg, ";}"))
}

setToggleHoveColour <- function(rrggbb)
{
  stopifnot(nchar(rrggbb)==6)
  return(paste0(".skin-blue .main-header .navbar .sidebar-toggle:hover{background-color:#", rrggbb,";}"))
}