R/extractColours.R

In department-for-transport/dftplotr: Functions to Produce Charts in the DfT Style

#' Function to extract palette colours as hex codes
#'
#' @param ... Individual character names of colours in palette
#' @name extract_colours
#' @title Extract named palette colours as hex codes
#'
extract_colours <- function(...) {
  cols <- c(...)

  if (is.null(cols))
    return (dft.colours)
  else if(mean(cols %in% names(dft.colours))){
    dft.colours[cols]
  }
  else{
    stop("Not a recognised colour")
  }


}