## Not run:
# library(scales)
# ## brewer subse of only color blind palette
# brewer.pal.blind.info
# genBrewerBlindPalInfo()
# ## dichromat info
# dichromat.pal.blind.info
# genDichromatPalInfo()
# ## all color blind palette, adding id/pkg.
# blind.pal.info
# ## with no parameters, just return blind.pal.info
# colorBlindSafePal()
# mypal <- colorBlindSafePal(20)
# ## or pass character name
# mypal <- colorBlindSafePal("Set2")
# mypal12 <- colorBlindSafePal(22)
# show_col(mypal(12, repeatable = FALSE)) # warning
# show_col(mypal(11, repeatable = TRUE)) # no warning, and repeat
# show_col(mypal12(12))
# ## End(Not run)
Run the code above in your browser using DataLab