revdep/library/docxtools/new/colorspace/demo/carto.R

In graphdr/docxtools: Tools for R Markdown to Docx Documents

if(requireNamespace("rcartocolor")) {

library("colorspace")

carto_seq <- c(
  "DarkMint", "Mint", "BluGrn", "Teal", "TealGrn", "Emrld", "BluYl", "ag_GrnYl",
  "Peach", "PinkYl", "Burg", "BurgYl", "RedOr", "OrYel", "Purp", "PurpOr",
  "Sunset", "Magenta", "SunsetDark", "ag_Sunset", "BrwnYl"
)
for(i in carto_seq) specplot(rcartocolor::carto_pal(7, i), sequential_hcl(7, i, rev = !grepl("ag_", i)), main = i)

carto_divx <- c("ArmyRose", "Earth", "Fall", "Geyser", "TealRose", "Temps", "Tropic")
for(i in carto_divx) specplot(rcartocolor::carto_pal(7, i), divergingx_hcl(7, i, rev = i == "ArmyRose"), main = i)

}