R/color_genr.R

Defines functions color_genr

#' @export
color_genr <- function(n)
{
  qual_col_pals = RColorBrewer::brewer.pal.info[RColorBrewer::brewer.pal.info$category == 'qual',]
  col_vector = unlist(mapply(RColorBrewer::brewer.pal, qual_col_pals$maxcolors, rownames(qual_col_pals)))

  col_vector[c(1:n)]
}
unimi-dse/5547f4ce documentation built on Feb. 17, 2020, 4:03 a.m.