# NOT RUN {
# Simple colour-named palette
lares_pal("simple")
# Raw colours and counter-colours
# OR simply: lares_pal("palette")
nice_palette <- lares_pal("colours")
nice_palette_ctr <- as.vector(lares_pal()$palette)
lapply(list(nice_palette, nice_palette_ctr), head)
# Personal colours by name
df <- lares_pal("custom")
df[sample(nrow(df), 5), ]
# }
Run the code above in your browser using DataLab