R/show_brand_palette.R

In SangerTools: Tools for Population Health Management Analytics

#' @title Brand Colour Palette
#' @description
#' Displays a brand colour palette for showing the hex codes associated with brand
#' @return a Base R plot object
#' @importFrom scales show_col
#' @examples
#' library(scales)
#' library(SangerTools)
#' show_brand_palette()
#' @export
show_brand_palette <- function() {
  show_col(c(
    "#9880BB",
    "#0061BA",
    "#3BBCD9",
    "#223873",
    "#71B72B"
  ))
  print(c(
    "#9880BB",
    "#0061BA",
    "#3BBCD9",
    "#223873",
    "#71B72B"
  ))
}