# NOT RUN {
# load elephant data
data(elephant_ud)
# generate hcl color palette
pal <- palette_set(elephant_ud)
head(pal)
# visualize the palette in HCL space with colorspace::hclplot
library(colorspace)
hclplot(pal[pal$specificity == 100, ]$color)
# }
Run the code above in your browser using DataLab