f_get_col_vector60 = function(){
library(RColorBrewer)
n <- 60
qual_col_pals = brewer.pal.info[brewer.pal.info$category == 'qual',]
col_vector = unlist(mapply(brewer.pal, qual_col_pals$maxcolors, rownames(qual_col_pals)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.