#' @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)]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.