# 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,";}"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.