# n - number of colors in the palette
get_palette <- function(n) {
require(RColorBrewer)
colors <- brewer.pal.info[brewer.pal.info$colorblind == TRUE, ]
col_vec <- unlist(mapply(brewer.pal, colors$maxcolors, rownames(colors)))
return(sample(col_vec, n))
}