R/load_colour_list.R

In hollie-rawlings/OPGColours2: What the Package Does (One Line, Title Case)

#' 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