R/ggplotColours.R

In eniclas/FAIRsimulator: Simulation Platform for the FAIR Trial

#' ggplotColours
#'
#' @description Extracts the standard ggplot colors, given the number of colors needed.
#' @param n number of colors needed.
#' @param h an argument
#'
#' @return a vector of colors
#' @export
#'
#' @examples
#' ggplotColours(4)
ggplotColours <- function(n=6, h=c(0, 360) +15){
  if ((diff(h)%%360) < 1) h[2] <- h[2] - 360/n
  hcl(h = (seq(h[1], h[2], length = n)), c = 100, l = 65)
}