#' Load a list of approved colours
#' This function prints a list of approved colours as either HEx codes or RGB codes
#'
#'
#' @param code Choice of RGB or HEX codes
#' @return A list of approved colour codes
load_colour_list <-function(code) {
x <- deparse(substitute(code))
if(x=="RGB"){
print(paste("Logo Blue: RGB 0,35,149"," ","Logo red: RGB 226,31,38"))
print(paste("Highlight blue: RGB 64,90,176", " ", "Cyan: RGB 0,174,239", " ", "Pale blue: RGB 153,204,255"))
} else if (x=="HEX") {
print("HEX")
}
else
print("Error please input RGB or HEX for RGB or HEX codes")
}
mm
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.