rtemis: Machine Learning and Visualization

Documented in rtpalette

# palettes.R
# ::rtemis::
# 2016-22 EDG rtemis.org

# Useful color resource
# https://encycolorpedia.com

# Colors ----
#'
#' `ucsfCol`: UCSF color palette (https://identity.ucsf.edu/brand-guide/color)
#'
#' @keywords internal
#' @noRd
ucsfLegacyCol <- list(
  navy = "#052049",
  teal = "#18A3AC",
  green = "#90BD31",
  blue = "#178CCB",
  orange = "#F48024",
  purple = "#716FB2",
  red = "#EC1848",
  yellow = "#FFDD00",
  iTeal = "#058488",
  iGreen = "#6EA400",
  iBlue = "#007CBE",
  iOrange = "#F26D04",
  iRed = "#EB093C"
)

#' @keywords internal
#' @noRd
ucsfCol <- list(
  Navy = "#052049",
  A2 = "#0F388A",
  A3_CTA_Blue = "#006BE9",
  B3_Blue = "#178CCB",
  B5 = "#B8E6FA",
  B6 = "#E2F4FC",
  C1 = "#0E5258",
  C2 = "#14828C",
  C3_Teal = "#16A0AC",
  C4 = "#60D0DA",
  C5 = "#B4E2E8",
  D1 = "#00483A",
  D2 = "#007242",
  D3_Green = "#32A03E",
  E3_Chartreuse = "#84C234",
  E4_Point_Reyes = "#B4DC55",
  F1 = "#2E2872",
  F2 = "#443E8C",
  F3_Purple = "#6C62D0",
  F4_Yosemite = "#8A8CE3",
  F5 = "#C0C0EA",
  G1 = "#461850",
  G2 = "#6C247C",
  G3_Violet = "#A238BA",
  G4 = "#C45ED8",
  G5 = "#EACCF0",
  H1 = "#561038",
  H2 = "#821A56",
  H3_Magenta = "#C42882",
  H4 = "#E266AE",
  H5 = "#F2C2DE",
  I3_Blue_Gray = "#506380",
  I6 = "#F2F3F4",
  J2 = "#878D96",
  J3_Cool_Gray = "#B4B9BF",
  J5 = "#E1E3E5",
  K3_Gray = "#D1D3D3",
  L3_Yellow = "#FEB80A",
  M3_Orange = "#FA6E1E",
  N3_Red = "#E61048"
)

#' UCSF Color Palette
#'
#' `ucsfPalette`: Subset of `ucsfCol`
#'
#' @keywords internal
#' @noRd
ucsfPalette <- ucsfCol[c(
  "teal",
  "orange",
  "blue",
  "yellow",
  "purple",
  "red",
  "navy",
  "green"
)]


# UC Davis ----
#' UC Davis Colors
#'
#' `ucdCol`: UC Davis color palette
#' (https://marketingtoolbox.ucdavis.edu/visual-identity/color.html)
#' @keywords internal
#' @noRd
ucdCol <- list(
  davisBlue = "#002855",
  davisGold = "#DAAA00",
  unitransRed = "#BA0C2F",
  westernRedbud = "#C6007E",
  californiaPoppy = "#ED8B00",
  goldenLupine = "#FFCD00",
  sunnyGrass = "#78BE20",
  skyBlue = "#00B5E2",
  recPoolBlue = "#008EAA",
  wineGrape = "#642667",
  muBrick = "#C26E60",
  hartHallStucco = "#E6A65D",
  sageGreen = "#9CAF88",
  evergreen = "#00573F",
  winterSkyGray = "#5B7F95",
  centennialWalkGray = "#B1B3B3",
  corkOak = "#ACA39A",
  southHallShingleBrown = "#4F2C1D"
)


# Berkeley ----
#' Berkeley Colors
#'
#' `berkeleyCol`: Berkeley color palette
#' (https://brand.berkeley.edu/colors/)
#'
#' @keywords internal
#' @noRd
berkeleyCol <- list(
  Berkeley_Blue = "#003262",
  Founders_Rock = "#3B7EA1",
  California_Gold = "#FDB515",
  Medalist = "#C4820E",
  Wellman_Tile = "#D9661F",
  Rose_Garden = "#EE1F60",
  Golden_Gate = "#ED4E33",
  South_Hall = "#6C3302",
  Bay_Fog = "#DDD5C7",
  Lawrence = "#00B0DA",
  LapLane = "#00A598",
  Pacific = "#46535E",
  Sather_Gate = "#B9D3B6",
  Ion = "#CFDD45",
  Soy_Bean = "#859438",
  Stone_Pine = "#584F29",
  Grey = "#EEEEEE",
  Web_Grey = "#888888"
)


# UC Santa Cruz ----
#' UC Santa Cruz Colors
#'
#' `ucscCol`: UC Santa Cruz color palette
#' (https://communications.ucsc.edu/visual-design/color/)
#'
#' @keywords internal
#' @noRd
ucscCol <- list(
  blue = "#003c6c",
  gold = "#fdc700",
  mediumBlue = "#006aad",
  lightBlue = "#13a5dc",
  teal = "#007988",
  orange = "#f29813",
  yellow = "#ffbf00",
  green = "#93c02d",
  rubineRed = "#da216d"
)


# UC Merced ----
#' UC Merced Colors
#'
#' `ucmercedCol`: UC Merced color palette
#' (https://publicrelations.ucmerced.edu/color-guidelines)
#'
#' @keywords internal
#' @noRd
ucmercedCol <- list(
  mercedRiverBlue = "#092f44",
  foothillsGold = "#a29061",
  sierraSkyBlue = "#5f8498",
  wildflowerBabyBlueEyes = "#2980b9",
  yosemiteSnowWhite = "#F8F5EC",
  halfDomeSlate = "#5B5B5B",
  mercedRyeGreen = "#235B16"
)


# UC Santa Barbara ----
#' UC Santa Barbara Colors
#'
#' `ucsbCol`: UC Santa Barbara color palette
#' (https://www.ucsb.edu/visual-identity/color)
#' @keywords internal
#' @noRd
ucsbCol <- list(
  navy = "#003660",
  gold = "#FEBC11",
  aqua = "#04859B",
  moss = "#7A8D39",
  seaGreen = "#0BA89A",
  coral = "#EF5645",
  mist = "#9CBEBE",
  clay = "#DCD6CC",
  sandstone = "#C9BF9D",
  lightGray = "#DCE1E5"
)


# UCLA ----
#' UCLA Colors
#'
#' `uclaCol`: UCLA color palette (http://brand.ucla.edu/identity/colors)
#'
#' @keywords internal
#' @noRd
uclaCol <- list(
  Blue = "#2774AE",
  Gold = "#FFD100",
  Darkest_Blue = "#003B5C",
  Darker_Blue = "#005587",
  Lighter_Blue = "#8BB8E8",
  Lightest_Blue = "#C3D7EE",
  Darkest_Gold = "#FFB81C",
  Darker_Gold = "#FFC72C",
  Yellow = "#FFFF00",
  Green = "#00FF87",
  Magenta = "#FF00A5",
  Cyan = "#00FFFF",
  Purple = "#8237FF"
)


# UC Riverside ----
#' UC Riverside Colors
#'
#' `ucrCol`: UC Riverside color palette (https://brand.ucr.edu/ucr-colors)
#'
#' @keywords internal
#' @noRd
ucrColor <- list(
  ucrBlue = "#2d6cc0",
  ucrGold = "#f1ab00",
  ucrGray = "#393b41"
)


# UCI ----
#' UCI Colors
#'
#' `uciCol`: UCI color palette (https://communications.uci.edu/campus-resources/graphic-standards/colors.php)
#'
#' @keywords internal
#' @noRd
uciCol <- list(
  blue = "#0064a4",
  yellow = "#ffd200",
  teal = "#6aa2b8",
  lightGray = "#c6beb5",
  navy = "#1b3d6d",
  orange = "#f78d2d",
  darkGray = "#555759",
  lightYellow = "#f7eb5f"
)


# UC San Diego ----
#' UC San Diego Colors
#'
#' `ucsdCol`: UC San Diego color palette
#' (https://ucpa.ucsd.edu/brand/elements/color-palette/)
#'
#' @keywords internal
#' @noRd
ucsdCol <- list(
  blue = "#182B49",
  mediumBlue = "#006A96",
  gold = "#C69214",
  yellow = "#FFCD00",
  cyan = "#00C6D7",
  green = "#6E963B",
  lightYellow = "#F3E500",
  orange = "#FC8900",
  coolGray = "#747678",
  lightGray = "#B6B1A9",
  darkGold = "#84754E"
)


# University of California ----
#' University of California Colors
#'
#' `californiaCol`: University of California color palette
#' (http://brand.universityofcalifornia.edu/guidelines/color.html#!primary-colors)
#'
#' @keywords internal
#' @noRd
ucCol <- list(
  ucBlue = "#1295D8",
  ucGold = "#FFB511",
  blue = "#005581",
  lightBlue = "#72CDF4",
  gold = "#FFD200",
  lightgold = "#FFE552",
  orange = "#FF6E1B",
  lightOrange = "#FF8F28",
  pink = "#E44C9A",
  lightPink = "#FEB2E0",
  teal = "#00778B",
  lightTeal = "#00A3AD",
  ucGray = "#7C7E7F",
  warmGray8 = "#8F8884",
  warmGray3 = "#BEB6AF",
  warmGray1 = "#DBD5CD",
  metallicGold = "#B4975A"
)

# Stanford ----
#' Stanford Colors
#'
#' `stanfordCol`: Stanford color palette
#' (https://identity.stanford.edu/color.html#digital-color)
#'
#' @keywords internal
#' @noRd
stanfordCol <- list(
  Cardinal = "#8c1515",
  Cool_Grey = "#4d4f53",
  Black = "#2e2d29",
  Bright_Red = "#B1040E",
  Chocolate = "#2F2424",
  Stone = "#544948",
  Fog = "#F4F4F4",
  Light_Sandstone = "#F9F6EF",
  Sandstone = "#d2c295",
  Warm_Grey = "#3f3c30",
  Beige = "#9d9573",
  Light_Sage = "#c7d1c5",
  Clay = "#5f574f",
  Cloud = "#dad7cb",
  Driftwood = "#b6b1a9",
  Sandhill = "#b3995d",
  Palo_Alto = "#175e54",
  Teal = "#00505c",
  Purple = "#53284f",
  Redwood = "#8d3c1e",
  Brown = "#5e3032",
  Sky = "#0098db",
  Lagunita = "#007c92",
  Mint = "#009b76",
  Gold = "#b26f16",
  Sun = "#eaab00",
  Poppy = "#e98300"
)

# California State University ----
#' California State University Colors
#'
#' `csuCol`: California State University color palette
#' (https://www2.calstate.edu/csu-system/csu-branding-standards/Documents/CSU-Brand-Guidelines-8-2018.pdf)
#'
#' @keywords internal
#' @noRd
csuCol <- list(
  red = "#CC0B2A",
  coolGray = "#D9D9D6",
  black = "#2F2F2F"
)


# California Polytechnic State University ----
#' California Polytechnic State University Colors
#'
#' `calpolyCol`: Cal Poly color palette
#' (https://universitymarketing.calpoly.edu/brand-guidelines/colors/)
#'
#' @keywords internal
#' @noRd
calpolyCol <- list(
  calpolygreen = "#154734",
  calpolygold = "#C69214",
  stadiumgold = "#F8E08E",
  polycanyon = "#F2C75C",
  dextergreen = "#A4D65E",
  farmersmarket = "#3A913F",
  skyblue = "#B5E3D8",
  surfblue = "#5CB8B2",
  serenity = "#D3E3F4",
  morroblue = "#ABCAE9",
  missionbeige = "#E4E1D1",
  pismosand = "#CAC7A7",
  coastsage = "#B6CCC2",
  sycamore = "#789F90",
  kennedygray = "#8E9089",
  sealgray = "#54585A",
  heritageorange = "#FF6A39",
  avodaco = "#D0DF00"
)

# Caltech ----
#' Caltech Colors
#'
#' `caltechCol`: Caltech color palette (http://identity.caltech.edu/colors)
#'
#' @keywords internal
#' @noRd
caltechCol <- list(
  orange = "#FF6C0C",
  coolGray9 = "#76777B",
  coolGray3c = "#C8C8C8",
  pms414 = "#AAA99F",
  pms5497c = "#849895",
  pms7494c = "#9DAE88",
  pms451c = "#C7B784",
  pms7403c = "#F1D384",
  pms548c = "#003B4C",
  pms3292c = "#005851",
  pms668c = "#644B78",
  pms195c = "#7A303F",
  pms186c = "#CF0A2C",
  pms299c = "#00A1DF",
  pms7473c = "#1E988A",
  pms7489c = "#73A950",
  pms7408c = "#F9BE00",
  pms605c = "#E2CC00",
  pms1915c = "#F54D80"
)

# Scripps Research ----
#' Scripps Research Colors
#'
#' `scrippsCol`: Scripps Research color palette
#'
#' @keywords internal
#' @noRd
scrippsCol <- list(
  yellow = "#edb035",
  orange = "#f1624f",
  maroon = "#610f37",
  blue = "#273d78",
  teal = "#116f79",
  lightblue = "#59c3d3"
)

# Penn ----
#' rtemis Color Palettes
#'
#' `pennCol`: Penn color palette
#' (http://www.upenn.edu/about/styleguide-color-type)
#'
#' @keywords internal
#' @noRd
pennCol <- list(
  darkestBlue = "#000f3a",
  darkerBlue = "#00144d",
  blue = "#01256e",
  lighterBlue = "#045ea7",
  lightestBlue = "#82afd3",
  darkestRed = "#57000a",
  darkerRed = "#74000e",
  red = "#95001a",
  lighterRed = "#c2004d",
  lightestRed = "#e180a6",
  darkestYellow = "#af7f00",
  darkerYellow = "#eaa900",
  yellow = "#f2c100",
  lighterYellow = "#f8de00",
  lightestYellow = "#fcef80",
  darkestGreen = "#005200",
  darkerGreen = "#006e00",
  green = "#008e00",
  lighterGreen = "#00be00",
  lightestGreen = "#80df80",
  darkestOrange = "#812d00",
  darkerOrange = "#ac3c00",
  orange = "#c35a00",
  lighterOrange = "#df9700",
  lightestOrange = "#efcb80",
  darkestPurple = "#23001f",
  darkerPurple = "#2f0029",
  purple = "#4a0042",
  lighterPurple = "#890082",
  lightestPurple = "#c480c1"
)


#' `pennPalette`: Subset of `pennCol`.
#'
#' @keywords internal
#' @noRd
pennPalette <- pennCol[c(
  "lighterBlue",
  "red",
  "green",
  "yellow",
  "lighterPurple",
  "orange",
  "lightestBlue",
  "lighterRed",
  "lighterGreen",
  "lightestPurple",
  "lighterOrange"
)]

#' `pennLightPalette`: Subset of `pennCol`. This is the lighter Penn palette for use with
#' the dark themes
#'
#' @keywords internal
#' @noRd
pennLightPalette <- pennCol[c(
  "lightestBlue",
  "lightestRed",
  "lightestGreen",
  "lightestYellow",
  "lightestPurple"
)]


# CMU ----
#' CMU Colors
#'
#' `cmuCol`: Carnegie Mellon color palette
#' (https://www.cmu.edu/marcom/brand-standards/web-standards.html#colors)
#'
#' @keywords internal
#' @noRd
cmuCol <- list(
  cmuRed = "#bb0000",
  gray = "#e0e0e0",
  darkGray = "#666666",
  gold = "#aa6600",
  teal = "#006677",
  blue = "#224477",
  green = "#008855",
  darkGreen = "#224433"
)


# MIT ----
#' MIT Colors
#'
#' `mitCol`: MIT color palette
#' (http://web.mit.edu/graphicidentity/colors.html)
#'
#' @keywords internal
#' @noRd
mitCol <- list(
  red = "#A31F34",
  gray = "#8A8B8C",
  lightGray = "#C2C0BF"
)


# Princeton ----
#' Princeton Colors
#'
#' `princetonCol`: Princeton color palette
#' (https://communications.princeton.edu/guides-tools/logo-graphic-identity)
#'
#' @keywords internal
#' @noRd
princetonCol <- list(
  orangeOnWhite = "#e77500",
  orangeOnBlack = "#f58025"
)


# Columbia ----
#' Columbia Colors
#'
#' `columbiaCol`: Columbia color palette
#' (https://visualidentity.columbia.edu/content/web-0)
#'
#' @keywords internal
#' @noRd
columbiaCol <- list(
  blue = "#000d74",
  blue1 = "#C4D8E2",
  blue2 = "#75AADB",
  blue3 = "#6CADDF",
  blue4 = "#008EE0",
  blue5 = "#2C6BAC",
  blue6 = "#0046A6",
  white = "#F9F9F9",
  lightGray = "#EFEFEF",
  sandstone = "#D2D2C0",
  gray = "#555555",
  slate = "#41516C",
  tarawera = "#093552",
  yellow = "#FFB400",
  lightGreen = "#C0CD3F",
  lime = "#90C134",
  orange = "#C14D00",
  red = "#841C1C",
  purple = "#8E0F56"
)


# Brown ----
#' Brown Colors
#'
#' `brownCol`: Brown color palette
#' (https://www.brown.edu/university-identity/sites/university-identity/files/Brown_Visual_Identity_Policy_2016-07-22.pdf)
#'
#' @keywords internal
#' @noRd
brownCol <- list(
  red = "#ED1C24",
  brown = "#4E3629",
  gold = "#FFC72C",
  gray = "#98A4AE",
  skyBlue = "#59CBE8",
  emerald = "#00B398",
  navy = "#003C71",
  taupe = "#B7B09C"
)


# Yale ----
#' Yale Colors
#'
#' `yaleCol`: Yale color palette (https://yaleidentity.yale.edu/web)
#'
#' @keywords internal
#' @noRd
yaleCol <- list(
  yaleBlue = "#00356b",
  mediumBlue = "#286dc0",
  lightBlue = "#63aaff",
  darkestGray = "#222222",
  darkGray = "#4a4a4a",
  sandstone = "#978d85",
  lightGray = "#dddddd",
  lightestGray = "#f9f9f9",
  green = "#5f712d",
  orange = "#bd5319"
)


# Cornell ----
#' Cornell Colors
#'
#' `cornellCol`: Yale color palette
#' (https://brand.cornell.edu/design-center/colors/
#'
#' @keywords internal
#' @noRd
cornellCol <- list(
  carnellian = "#B31B1B",
  darkGrey = "#222222",
  lightGrey = "#F7F7F7",
  linkBlue = "#006699",
  greenGraphics = "#6EB43F",
  greenText = "#4B7B2B",
  greenLargeText = "#578E32",
  orangeGraphics = "#F8981D",
  orangeLargeText = "#D47500",
  redGraphics = "#EF4035",
  redText = "#DF1E12",
  navy = "#073949",
  darkWarmGrey = "#A2998B",
  seaGrey = "#9FAD9F"
)

# Harvard Medical School ----
#' HMS Colors
#'
#' `hmsCol`: Harvard Medical School color palette
#' (https://identityguide.hms.harvard.edu/color)
#'
#' @keywords internal
#' @noRd
hmsCol <- list(
  crimson = "#A51C30",
  black = "#1E1E1E",
  mortar = "#8C8179",
  parchment = "#F3F3F1",
  slate = "#8996A0",
  shade = "#BAC5C6",
  indigo = "#293352",
  blueBonnet = "#4E84C4",
  ivy = "#52854C",
  pear = "#C3D7A4",
  lemon = "#FFDB6D",
  saffron = "#D16103",
  gold = "#C4961A",
  creme = "#F4EDCA"
)


# Dartmouth ----
#' Dartmouth Colors
#'
#' `dartmouthCol`: Dartmouth color palette
#' (https://communications.dartmouth.edu/visual-identity/design-elements/color-palette#web%20palette)
#'
#' @keywords internal
#' @noRd
dartmouthCol <- list(
  dartmouthGreen = "#00693e",
  forestGreen = "#12312b",
  webGray1 = "#f7f7f7",
  webGray2 = "#e2e2e2",
  graniteGray = "#424141",
  autumnBrown = "#643c20",
  bonfireRed = "#9d162e",
  tuckOrange = "#e32d1c",
  summerYellow = "#f5dc69",
  springGreen = "#c4dd88",
  riverNavy = "#003c73",
  riverBlue = "#267aba",
  webViolet = "#8a6996",
  bonfireOrange = "#ffa00f"
)

# USF ----
#' USF Colors
#'
#' `usfCol`: USF color palette
#' (https://myusf.usfca.edu/marketing-communications/resources/graphics-resources/brand-standards/color-palette)
#' Color conversions performed using https://www.pantone.com/color-finder/
#'
#' @keywords internal
#' @noRd
usfCol <- list(
  green = "#205C40",
  yellow = "#ffb81c",
  gray = "#75787B"
)


# Washington ----
#' University of Washington Colors
#'
#' `uwCol`: University of Washington color palette
#' (http://www.washington.edu/brand/graphic-elements/primary-color-palette/)
#'
#' @keywords internal
#' @noRd
uwCol <- list(
  purple = "#4b2e83",
  gold = "#b7a57a",
  metallicGold = "#85754d"
)


# Johns Hopkins ----
#' Johns Hopkins University Colors
#'
#' `jhuCol`: Johns Hopkins University color palette
#' (https://brand.jhu.edu/color/)
#'
#' @keywords internal
#' @noRd
jhuCol <- list(
  heritageBlue = "#002d72",
  spiritBlue = "#68ace5",
  orange = "#cf4520",
  maroon = "#76232f",
  pink = "#a15a95",
  green = "#009b77",
  blue = "#0072ce",
  yellow = "#f1c400",
  pms7407c = "#cba052",
  pms1375c = "#ff9e1b",
  pms1505c = "#ff6900",
  pms7586c = "#9e5330",
  pms4625c = "#4f2c1d",
  pms486c = "#e8927c",
  pms187c = "#a6192e",
  pms262c = "#51284f",
  pms666c = "#a192b2",
  pms279c = "#418fde",
  pms564c = "#86c8bc",
  pms7734c = "#286140",
  pms7490c = "#719949"
)


# NYU ----
#' NYU Colors
#'
#' `nyuCol`: NYU color palette
#' (https://www.nyu.edu/employees/resources-and-services/media-and-communications/styleguide/website/graphic-visual-design.html)
#'
#' @keywords internal
#' @noRd
nyuCol <- list(
  brightPurple = "#8900e1",
  nyuPurple = "#57068c",
  darkerPurple = "#330662",
  darkestPurple = "#220337",
  mediumGray = "#6d6d6d",
  lightGray = "#b8b8b8",
  lighterGray = "#d6d6d6",
  lightestGray = "#f2f2f2",
  red = "#cb0200",
  orange = "#e86c00",
  green = "#489141",
  blue = "#28619e",
  lightBlue = "#3dbbdb",
  accentGreen = "#007c70",
  brightRed = "#d71e5e",
  brightOrange = "#e86c00",
  yellow = "#ffc107"
)

# WashU ----
#' Washington University St Louis Colors
#'
#' `washuCol`: WashU color palette
#' (https://marcomm.wustl.edu/resources/branding-logo-toolkit/color-palettes/)
#'
#' @keywords internal
#' @noRd
washuCol <- list(
  red = "#a51417",
  gray = "#6c7373",
  lightGray = "#c8c8c8",
  darkGray = "#3d3d3d",
  extraLightGRAY = "#eeeeee",
  green = "#007360",
  darkGreen = "#173e3a",
  lightGreen = "#789b4a",
  tan = "#e1c4ac",
  darkBlue = "#172752",
  blue = "#005f85",
  pearl = "#d8d2c5",
  yellow = "#ffcc00",
  orange = "#d15f27",
  darkOrange = "#b85323",
  purple = "#622466",
  lightTurqoise = "#67c8c7",
  turqoise = "#2b8282"
)


# Chicago ----
#' U Chicago Colors
#'
#' `chicagoCol`: University of Chicago color palette
#' (https://news.uchicago.edu/sites/default/files/attachments/_uchicago.identity.guidelines.pdf)
#'
#' @keywords internal
#' @noRd
chicagoCol <- list(
  maroon = "#800000",
  darkGray = "#767676",
  lightGray = "#D6D6CE",
  yellowTint = "#FFB547",
  yellowCore = "#FFA319",
  yellowShade = "#C68220",
  orangeTint = "#D49464",
  orangeCore = "#C16622",
  orangeShade = "#9A5324",
  redTint = "#B1746F",
  redCore = "#8F3931",
  redShade = "#642822",
  lightGreenTint = "#ADB17D",
  lightGreenCore = "#8A9045",
  lightGreenShade = "#616530",
  darkGreenTint = "#8A8B79",
  darkGreenCore = "#58593F",
  darkGreenShade = "#3E3E23",
  blueTint = "#5B8FA8",
  blueCore = "#155F83",
  blueShade = "#0F425C",
  violetTint = "#725663",
  violetCore = "#350E20",
  cyan = "#47B5FF",
  magenta = "#FF3399"
)


# Penn State ----
#' Penn State Colors
#'
#' `texasCol`: Penn State color palette
#' (https://brand.psu.edu/design-essentials.html#color)
#'
#' @keywords internal
#' @noRd
pennstateCol <- list(
  nittanyNavy = "#001E44",
  beaverBlue = "#1E407C",
  pennsylvaniaSky = "#009CDE",
  limestone = "#91959C",
  creek = "#3EA39E",
  slate = "#314D64",
  pennsForest = "#4A7729",
  oldCoaly = "#54585A",
  landGrant = "#6A3028",
  lionsRoar = "#BF8226",
  lionShrine = "#B88965",
  statelyAtherton = "#AC8DCE",
  pughBlue = "#96BEE6",
  original1887 = "#BC204B",
  brightkeystone = "#FFD100",
  inventOrange = "#E98300",
  dawnOfDiscovery = "#F2665E",
  perpetualWonder = "#491D70",
  greenOpportunity = "#008755",
  futuresCalling = "#99CC00"
)


# SFSU ----
#' SF State
#'
#' `sfsuCol`: SF State color palette
#' (https://logo.sfsu.edu/color-system)
#'
#' @keywords internal
#' @noRd
sfsuCol <- list(
  `2755C` = "#231161",
  `2755C_85pc` = "#463077",
  `117C` = "#C99700",
  `117C_60pc` = "#E9D597",
  `3025C` = "#004F71",
  `383C` = "#ABAD00",
  `7419C` = "#B04A5A",
  `484C` = "#9A3324",
  coolGray11 = "#53565A"
)

# U Illinois ----
#' University of Illinois Colors
#'
#' `illinoisCol`: University of Illinois color palette
#' (https://www.uillinois.edu/OUR/brand/color_palettes)
#'
#' @keywords internal
#' @noRd
illinoisCol <- list(
  uofiblue = "#13294b",
  urbanaOrange = "#E84A27",
  uicRed = "#D50032",
  uisBlue = "#003366",
  teal = "#0d605e",
  grayBlue = "#6fafc7",
  citron = "#bfd46d",
  darkYellow = "#ffd125",
  salmon = "#ee5e5e",
  periwinkle = "#4f6898",
  gray = "#E8E9EA",
  coolGray6 = "#A5A8AA",
  coolGray1 = "#5E6669",
  secondaryBlue1 = "#0455A4",
  secondaryBlue2 = "#1F4096"
)

# U Maryland ----
#' University of Maryland Colors
#'
#' `umdCol`: University of Maryland color palette
#' (https://osc.umd.edu/licensing-trademarks/brand-standards/logos/#color)
#'
#' @keywords internal
#' @noRd
umdCol <- list(
  umdRed = "#E21833",
  umdYellow = "#ffd200",
  umdBrown = "#AD7C59"
)

# MSU ----
#' Michigan State University Colors
#'
#' `msuCol`: MSU color palette
#' (https://brand.msu.edu/visual/color-palette)
#'
#' @keywords internal
#' @noRd
msuCol <- list(
  SpartanGreen = "#18453B",
  White = "#FFFFFF",
  Black = "#000000",
  KellyGreen = "#008208",
  LimeGreen = "#7BBD00",
  ExcellenceGreen = "#0B9A6D"
)

# Michigan ----
#' University of Michigan Colors
#'
#' `michiganCol`: Michigan color palette
#' (https://brand.umich.edu/design-resources/colors/)
#'
#' @keywords internal
#' @noRd
michiganCol <- list(
  Maize = "#FFCB05",
  Blue = "#00274C",
  TappanRed = "#9A3324",
  RossOrange = "#D86018",
  RackhamGreen = "#75988d",
  WaveFieldGreen = "#A5A508",
  TaubmanTeal = "#00B2A9",
  ArboretumBlue = "#2F65A7",
  A2Amethyst = "#702082",
  MatthaeiViolet = "#575294",
  UMMATan = "#CFC096",
  BurtonTowerBeige = "#9B9A6D",
  AngelHallAsh = "#989C97",
  LawQuadStone = "#655A52",
  PumaBlack = "#131516"
)

# Iowa ----
#' Univeristy of Iowa Colors
#'
#' `iowaCol`: University of Iowa color palette
#' (https://brand.uiowa.edu/color)
#'
#' @keywords internal
#' @noRd
iowaCol <- list(
  Gold = "#FFCD00",
  Gray = "#BBBCBC",
  Blue = "#00A9E0",
  Green = "#00AF66",
  Orange = "#FF8200",
  DarkGray = "#63666A",
  DarkBlue = "#00558C",
  DarkGreen = "#00664F",
  DarkOrange = "#BD472A"
)

# U Texas ----
#' U Texas Colors
#'
#' `texasCol`: University of Texas color palette
#' (https://brand.utexas.edu/identity/color/)
#'
#' @keywords internal
#' @noRd
texasCol <- list(
  burntOrange = "#bf5700",
  gray = "#333f48",
  brightOrange = "#f8971f",
  yellow = "#ffd600",
  lightGreen = "#a6cd57",
  green = "#579d42",
  teal = "#00a9b7",
  blue = "#005f86",
  lightBlue = "#9cadb7",
  stone = "#d6d2c4"
)


# Emory ----
#' Emory Colors
#'
#' `emoryCol`: Emory color palette
#' (https://brand.emory.edu/color.html)
#'
#' @keywords internal
#' @noRd
emoryCol <- list(
  emoryBlue = "#012169",
  darkBlue = "#0c2340",
  mediumBlue = "#0033a0",
  lightBlue = "#007dba",
  yellow = "#f2a900",
  gold = "#b58500",
  metallicGold = "#84754e",
  cyan = "#00aeef",
  skyBlue = "#41b6e6",
  teal = "#487f84",
  kellyGreen = "#348338",
  seaGreen = " #006c5b",
  olive = "#5c8118",
  orange = "#c35413",
  red = "#da291c",
  magenta = "#c6007e",
  purple = "#6558b1",
  grape = "#6d2077",
  black = "#101820",
  coolGray5 = "#b1b3b3",
  coolGray2 = "#d0d0ce",
  coolGray1 = "#d9d9d6"
)

# Georgia Tech ----
#' Georgia Tech Colors
#'
#' `techCol`: Georgia Tech color palette
#' (http://www.licensing.gatech.edu/super-block/239)
#'
#' @keywords internal
#' @noRd
techCol <- list(
  techGold = "#B3A369",
  buzzGold = "#EAAA00",
  blue = "#00263A"
)


# Vanderbilt ----
#' Vanderbilt Color
#'
#' `vanderbiltCol`: Vanderbilt color palette
#' (https://www.vanderbilt.edu/communications/brand/color.php)
#'
#' @keywords internal
#' @noRd
vanderbiltCol <- list(
  gold = "#D8AB4C",
  blue = "#006682",
  red = "#993D1B",
  darkGray = "#333333",
  green = "#464E21",
  lightBlue = "#CCE0E6",
  lightRed = "#EBD8D1",
  lightGray = "#DDDDDD",
  lightGreen = "#DADCD3"
)

# Jefferson ----
#' Jefferson University Colors
#'
#' `jeffersonCol`: Jefferson color palette (http://creative.jefferson.edu/downloads/Jefferson-Brand-Guidelines.pdf)
#'
#' @keywords internal
#' @noRd
jeffersonCol <- list(
  jeffDeepBlue = "#152456",
  jeffBrightBlue = "#59B7df",
  legacyMaroon = "#9f2943",
  red = "#e53e30",
  voltGreen = "#ece819",
  silver = "#dfe1df",
  darkGray = "#8e9089",
  black = "#231f20"
)

# Hawaii ----
#' University of Hawaii Colors
#'
#' `hawaiiCol`: University of Hawaii color palette (https://www.hawaii.edu/offices/eaur/graphicsstandards.pdf)
#'
#' @keywords internal
#' @noRd
hawaiiCol <- list(
  manoa = "#024731",
  hilo = "#DA291C",
  westOahu = "#A71930",
  hawaiiCC = "#91004B",
  honoluluCC = "#00747A",
  kapiolaniCC = "#002395",
  kauaiCC = "#716FB3",
  leeward = "#3D7EDB",
  mauiCC = "#005172",
  windward = "#7AB800",
  system = "#B3995D"
)

# NIH ----
#' NIH Colors
#'
#' `nihCol`: NIH color palette (https://www.nlm.nih.gov/about/nlm_logo_guidelines_030414_508.pdf)
#'
#' @keywords internal
#' @noRd
nihCol <- list(
  blue = "#20558a",
  gray = "#616265"
)

# Imperial ----
#' Imperial Colours
#'
#' `imperialCol`: Imperial College London colour palette
#' (https://www.imperial.ac.uk/brand-style-guide/visual-identity/brand-colours/)
#'
#' @keywords internal
#' @noRd
imperialCol <- list(
  navy = "#002147",
  imperialBlue = "#003E74",
  lightGrey = "#EBEEEE",
  coolGrey = "#9D9D9D",
  lightBlue = "#D4EFFC",
  blue = "#006EAF",
  processBlue = "#0091D4",
  poolBlue = "#00ACD7",
  darkTeal = "#0F8291",
  teal = "#009CBC",
  seaglass = "#379f9f",
  darkGreen = "#02893B",
  kermitGreen = "#66A40A",
  lime = "#BBCE00",
  orange = "#D24000",
  tangerine = "#EC7300",
  lemonYellow = "#FFDD00",
  brick = "#A51900",
  red = "#DD2501",
  cherry = "#E40043",
  raspberry = "#9F004E",
  magentaPink = "#C81E78",
  iris = "#751E66",
  violet = "#960078",
  plum = "#321E6D",
  purple = "#653098"
)

# UCL ----
#' UCL Colours
#'
#' `uclCol`: UCL colour palette (https://www.ucl.ac.uk/cam/brand/guidelines/colour)
#'
#' @keywords internal
#' @noRd
uclCol <- list(
  darkGreen = "#555025",
  darkRed = "#651D32",
  darkPurple = "#4B384C",
  darkBlue = "#003D4C",
  darkBrown = "#4E3629",
  midGreen = "#8F993E",
  midRed = "#93272C",
  midPurple = "#500778",
  midBlue = "#002855",
  stone = "#D6D2C4",
  brightGreen = "#B5BD00",
  brightRed = "#D50032",
  brightBlue = "#0097A9",
  brightPink = "#AC145A",
  lightGreen = "#BBC592",
  lightRed = "#E03C31",
  lightPurple = "#C6B0BC",
  lightBlue = "#8DB9CA",
  yellow = "#F6BE00",
  orange = "#EA7600",
  grey = "#8C8279",
  blueCeleste = "#A4DBE8",
  IOEblue = "#24509A"
)

# Oxford ----
#' Oxford Colours
#'
#' `oxfordCol`: Oxford University colour palette (https://www.ox.ac.uk/sites/files/oxford/media_wysiwyg/Oxford%20Blue%20LR.pdf)
#'
#' @keywords internal
#' @noRd
oxfordCol <- list(
  oxfordBlue = "#002147",
  pantone279 = "#4891DC",
  pantone291 = "#9ECEEB",
  pantone5405 = "#44687D",
  pantone549 = "#5F9BAF",
  pantone551 = "#A1C4D0",
  pantone562 = "#007770",
  pantone624 = "#7BA296",
  pantone559 = "#BCD2C3",
  pantone576 = "#69913B",
  pantone578 = "#B9CF96",
  pantone580 = "#CEDBAF",
  pantone583 = "#AAB300",
  pantone585 = "#DBDE72",
  pantone587 = "#E3E597",
  pantone7412 = "#CF7A30",
  pantone129 = "#F5CF47",
  pantone127 = "#F3DE74",
  pantone202 = "#872434",
  pantone200 = "#BE0F34",
  pantone196 = "#EBC4CB",
  pantoneWarmGray6 = "#A79D96",
  pantoneWarmGray3 = "#C7C2BC",
  pantoneWarmGray1 = "#E0DED9"
)


# NHS ----
#' NHS Colours
#'
#' `nhsCol`: NHS colour palette (https://www.england.nhs.uk/nhsidentity/identity-guidelines/colours/)
#'
#' @keywords internal
#' @noRd
nhsCol <- list(
  nhsDarkBlue = "#003087",
  nhsBlue = "#005EB8",
  nhsBrightBlue = "#0072CE",
  nhsLightBlue = "#41B6E6",
  nhsAquaBlue = "#00A9CE",
  nhsBlack = "#231f20",
  nhsDarkGrey = "#425563",
  nhsMidGrey = "#768692",
  nhsPaleGrey = "#E8EDEE",
  nhsDarkGreen = "#006747",
  nhsGreen = "#009639",
  nhsLightGreen = "#78BE20",
  nhsAquaGreen = "#00A499",
  nhsPurple = "#330072",
  nhsDarkPink = "#7C2855",
  nhsPink = "#AE2573",
  nhsDarkRed = "#8A1538",
  emergencyServicesRed = "#DA291C",
  nhsOrange = "#ED8B00",
  nhsWarmYellow = "#FFB81C",
  nhsYellow = "#FAE100"
)

# UBC ----
#' UBC Colors
#'
#' `ubcCol`: UBC color palette (http://assets.brand.ubc.ca/downloads/ubc_colour_guide.pdf)
#'
#' @keywords internal
#' @noRd
ubcCol <- list(
  ubcBlue = "#002145",
  blue2 = "#0055B7",
  blue3 = "#00A7E1",
  blue4 = "#40B4E5",
  blue5 = "#6EC4E8",
  blue6 = "#97D4E9"
)

# U Toronto ----
#' U Toronto Colors
#'
#' `torontoCol`: U Toronto color palette (https://trademarks.utoronto.ca/colors-fonts/)
#'
#' @keywords internal
#' @noRd
torontoCol <- list(
  blue = "#002043",
  red = "#bb133e"
)

# McGill ----
#' McGill Colors
#'
#' `mcgillCol`: McGill color palette (https://www.mcgill.ca/visual-identity/visual-identity-guide)
#'
#' @keywords internal
#' @noRd
mcgillCol <- list(
  mcgillRed = "#ED1B2F",
  grey = "#5D6770",
  pastelOrange = "#FFD794",
  brightOrange = "#F7941D",
  mutedOrange = "#D3674A",
  darkOrange = "#AA4B31",
  pastelYellow = "#FFF193",
  brightYellow = "#FFD400",
  mutedYellow = "#E8B92E",
  darkYellow = "#B28C35",
  pastelTeal = "#B5E1E1",
  brightTeal = "#27BDBE",
  mutedTeal = "#087F8C",
  darkTeal = "#0A6266",
  pastelBlue = "#C8EAF5",
  brightBlue = "#44C8F5",
  mutedBlue = "#0096C9",
  darkBlue = "#024F6D",
  pastelGreen = "#D5E6A8",
  brightGreen = "#B2D235",
  mutedGreen = "#8BA04E",
  darkGreen = "#305534",
  pastelPink = "#E2A7CC",
  brightPink = "#C768A9",
  mutedPink = "#9B5678",
  darkPink = "#673567",
  darkRed = "#9E0918"
)

# ETH ----
#' ETH Colours
#'
#' `ethCol`: ETH color palette (https://ethz.ch/services/en/service/communication/corporate-design/colour.html)
#'
#' @keywords internal
#' @noRd
ethCol <- list(
  eth1 = "#1F407A",
  eth2 = "#3C5A0F",
  eth3 = "#0069B4",
  eth4 = "#72791C",
  eth5 = "#91056A",
  eth6 = "#6F6F6E",
  eth7 = "#A8322D",
  eth8 = "#007A92",
  eth9 = "#956013",
  eth10 = "#82BE1E"
)

# RWTH Aachen ----
#' RWTH Aachen Colours
#'
#' `rwthCol`: RWTH Aachen color palette (http://www9.rwth-aachen.de/global/show_document.asp?id=aaaaaaaaaadpbhq)
#'
#' @keywords internal
#' @noRd
rwthCol <- list(
  blau1 = "#00549F",
  blau2 = "#407FB7",
  blau3 = "#8EBAE5",
  blau4 = "#C7DDF2",
  blau5 = "#E8F1FA",
  magenta1 = "#E30066",
  magenta2 = "#E96088",
  magenta3 = "#F19EB1",
  magenta4 = "#F9D2DA",
  magenta5 = "#FDEEF0",
  gelb1 = "#FFED00",
  gelb2 = "#FFF055",
  gelb3 = "#FFF59B",
  gelb4 = "#FFFAD1",
  gelb5 = "#FFFDEE",
  petrol1 = "#006165",
  petrol2 = "#2D7F83",
  petrol3 = "#7DA4A7",
  petrol4 = "#BFD0D1",
  petrol5 = "#E6ECEC",
  tuerkis1 = "#0098A1",
  tuerkis2 = "#00B1B7",
  tuerkis3 = "#89CCCF",
  tuerkis4 = "#CAE7E7",
  tuerkis5 = "#EBF6F6",
  gruen1 = "#57AB27",
  gruen2 = "#8DC060",
  gruen3 = "#B8D698",
  gruen4 = "#DDEBCE",
  gruen5 = "#F2F7EC",
  maigruen1 = "#BDCD00",
  maigruen2 = "#D0D95C",
  maigruen3 = "#E0E69A",
  maigruen4 = "#F0F3D0",
  maigruen5 = "#F9FAED",
  orange1 = "#F6A800",
  orange2 = "#FABE50",
  orange3 = "#FDD48F",
  orange4 = "#FEEAC9",
  orange5 = "#FFF7EA",
  rot1 = "#CC071E",
  rot2 = "#D85C41",
  rot3 = "#E69679",
  rot4 = "#F3CDBB",
  rot5 = "#FAEBE3",
  bordeaux1 = "#A11035",
  bordeaux2 = "#B65256",
  bordeaux3 = "#CD8B87",
  bordeaux4 = "#E5C5C0",
  bordeaux5 = "#F5E8E5",
  violett1 = "#612158",
  violett2 = "#834E75",
  violett3 = "#A8859E",
  violett4 = "#D2C0CD",
  violett5 = "#EDE5EA",
  lila1 = "#7A6FAC",
  lila2 = "#9B91C1",
  lila3 = "#BCB5D7",
  lila4 = "#DEDAEB",
  lila5 = "#F2F0F7"
)

# Mozilla ----
#' Mozilla Colors
#'
#' `mozillaCol`: Mozilla design colors
#' (https://mozilla.design/mozilla/color/)
#'
#' @keywords internal
#' @noRd
mozillaCol <- list(
  neonBlue = "#00ffff",
  lemonYellow = "#fff44f",
  warmRed = "#ff4f5e",
  neonGreen = "#54ffbd",
  darkPurple = "#6e008b",
  darkGreen = "#005e5e",
  darkBlue = "#00458b",
  lightGrey = "#e7e5e2"
)

# Firefox ----
#' Firefox Colors
#'
#' `firefoxCol`: Firefox design colors
#' (https://mozilla.design/firefox/color/)
#'
#' @keywords internal
#' @noRd
firefoxCol <- list(
  Green = "#53FEBE",
  Blue = "#0290EE",
  Purple = "#AC71FF",
  Light_Purple = "#D64CF1",
  Magenta = "#FE4AA3",
  Salmon = "#FF6A75",
  Orange = "#FE8A4F",
  Yellow = "#FFBD4F"
)

# Apple ----
#' Apple Colors
#'
#' `appleCol`: Apple Human Interface Guidelines color palette
#' (https://developer.apple.com/design/human-interface-guidelines/ios/visual-design/color/)
#'
#' @keywords internal
#' @noRd
appleCol <- list(
  red = "#FF3B30",
  orange = "#FF9500",
  yellow = "#FFCC00",
  green = "#4CD964",
  tealBlue = "#5AC8FA",
  blue = "#007AFF",
  purple = "#5856D6",
  pink = "#FF2D55"
)


# Google ----
#' Google Colors
#'
#' `googleCol`: Google brand palette (https://brandpalettes.com/google-colors/)
#'
#' @keywords internal
#' @noRd
googleCol <- list(
  blue = "#4285F4",
  red = "#DB4437",
  yellow = "#F4B400",
  green = "#0F9D58"
)

# Amazon ----
#' Amazon Colors
#'
#' `amazonCol`: Amazon brand palette
#' (https://images-na.ssl-images-amazon.com/images/G/01/AdvertisingSite/pdfs/AmazonBrandUsageGuidelines.pdf)
#'
#' @keywords internal
#' @noRd
amazonCol <- list(
  orange = "#FF9900",
  blue = "#146EB4"
)

# Microsoft ----
#' Microsoft Colors
#'
#' `microsoftCol`: Microsoft brand palette
#' (https://brandcolors.net/b/microsoft)
#'
#' @keywords internal
#' @noRd
microsoftCol <- list(
  orange = "#f65314",
  green = "#7cbb00",
  blue = "#00a1f1",
  yellow = "#ffbb00"
)

# rtemis palettes ----
rtCol1 <- desaturate(
  c(
    ucsfCol[["C3_Teal"]],
    ucsfCol[["M3_Orange"]],
    pennCol[["lighterRed"]],
    pennCol[["lighterBlue"]],
    pennCol[["lighterOrange"]],
    pennCol[["lighterPurple"]],
    ucsfCol[["A3_CTA_Blue"]],
    pennCol[["lightestOrange"]],
    pennCol[["lightestPurple"]],
    pennCol[["blue"]],
    pennCol[["red"]],
    pennCol[["orange"]],
    pennCol[["purple"]]
  ),
  .3
)

rtCol1n <- desaturate(
  c(
    ucsfCol[["C3_Teal"]],
    ucsfCol[["M3_Orange"]],
    pennCol[["lighterBlue"]],
    pennCol[["lighterRed"]],
    pennCol[["lighterOrange"]],
    pennCol[["lighterPurple"]],
    pennCol[["lightestBlue"]],
    ucsfCol[["G4"]],
    pennCol[["lightestOrange"]],
    pennCol[["lightestPurple"]],
    pennCol[["blue"]],
    pennCol[["red"]],
    pennCol[["orange"]],
    pennCol[["purple"]]
  ),
  .3
)

rtCol2 <- c(
  ucsfCol[["C3_Teal"]],
  ucsfCol[["M3_Orange"]],
  ucsfCol[["H2"]],
  ucsfCol[["A2"]],
  ucsfCol[["C4"]],
  ucsfCol[["L3_Yellow"]],
  ucsfCol[["H3_Magenta"]],
  ucsfCol[["A3_CTA_Blue"]]
)

rtCol3 <- c(
  ucsfCol[["C3_Teal"]],
  ucsfCol[["M3_Orange"]],
  pennCol[["lighterRed"]],
  pennCol[["lighterBlue"]],
  ucsfCol[["C4"]],
  ucsfCol[["L3_Yellow"]],
  ucsfCol[["H3_Magenta"]],
  ucsfCol[["A3_CTA_Blue"]]
) |>
  desaturate()

rtcoldev <- list(
  rtemisblue = "#80ffff",
  rtemisbluetoo = "#00D6FF",
  lavender = "#ff80ffff",
  orange = "#ffb200ff"
)

grays <- list("gray10", "gray30", "gray50", "gray70", "gray90")

# Pantone 2022 ----
pantoneBalancingAct <- list(
  Granite_Green = "#86A293",
  Muted_Clay = "#D29381",
  Very_Peri = "#6667AB",
  Hawthorne_Rose = "#884C5E",
  Dried_Moss = "#CCB97E",
  Elderberry = "#9D848E",
  Lotus = "#E3C1C0",
  Burnished_Lilac = "#C4AEB1"
)

pantoneWellspring <- list(
  Eggshell_Blue = "#A1CAC9",
  Celery = "#CFBF54",
  Dewberry = "#8C5896",
  Chai_tea = "#B3832F",
  Greenbrier = "#48996B",
  Very_Peri = "#6667AB",
  Treetop = "#436A2F",
  Foliage = "#759F51"
)

pantoneAmusements <- list(
  Tawny_Orange = "#D77E6F",
  Very_Peri = "#6667AB",
  Iced_Coffee = "#B38F6A",
  Pink_Flambe = "#D75078",
  Fuchsia_Pink = "#E288B6",
  Paradise_Pink = "#E9445D",
  Cornsilk = "#EEC272",
  Tourmaline = "#85A0A9"
)
# rtemis_palettes ----
rtemis_palettes <- list(
  ucsfCol = ucsfCol,
  pennCol = pennCol,
  imperialCol = imperialCol,
  stanfordCol = stanfordCol,
  ucdCol = ucdCol,
  berkeleyCol = berkeleyCol,
  ucscCol = ucscCol,
  ucmercedCol = ucmercedCol,
  ucsbCol = ucsbCol,
  uclaCol = uclaCol,
  ucrColor = ucrColor,
  uciCol = uciCol,
  ucsdCol = ucsdCol,
  ucCol = ucCol,
  scrippsCol = scrippsCol,
  caltechCol = caltechCol,
  cmuCol = cmuCol,
  princetonCol = princetonCol,
  columbiaCol = columbiaCol,
  yaleCol = yaleCol,
  brownCol = brownCol,
  cornellCol = cornellCol,
  hmsCol = hmsCol,
  dartmouthCol = dartmouthCol,
  usfCol = usfCol,
  uwCol = uwCol,
  jhuCol = jhuCol,
  nyuCol = nyuCol,
  washuCol = washuCol,
  chicagoCol = chicagoCol,
  pennstateCol = pennstateCol,
  msuCol = msuCol,
  michiganCol = michiganCol,
  iowaCol = iowaCol,
  texasCol = texasCol,
  techCol = techCol,
  jeffersonCol = jeffersonCol,
  hawaiiCol = hawaiiCol,
  nihCol = nihCol,
  torontoCol = torontoCol,
  mcgillCol = mcgillCol,
  uclCol = uclCol,
  oxfordCol = oxfordCol,
  nhsCol = nhsCol,
  ethCol = ethCol,
  rwthCol = rwthCol,
  firefoxCol = firefoxCol,
  mozillaCol = mozillaCol,
  appleCol = appleCol,
  googleCol = googleCol,
  amazonCol = amazonCol,
  microsoftCol = microsoftCol,
  pantoneBalancingAct = pantoneBalancingAct,
  pantoneWellspring = pantoneWellspring,
  pantoneAmusements = pantoneAmusements,
  grays = grays,
  rtCol1 = rtCol1,
  rtCol3 = rtCol3
)

#' Color Palettes
#'
#' `rtpalette()` prints names of available color palettes
#' Each palette is a named list of hexadecimal color definitions which can be used with
#' any graphics function.
#' `rtpalette(palette_name)` returns a list of colors for a given palette.
#'
#' @param palette Character: Name of palette to return. Default = NULL: available palette
#' names are printed and no palette is returned.
#' @param verbosity Integer: Verbosity level.
#'
#' @return A list of available palettes, invisibly.
#'
#' @author EDG
#' @export
#'
#' @examples
#' \dontrun{
#' rtpalette("imperial")
#' rtpalette()
#' }
rtpalette <- function(palette = NULL, verbosity = 1L) {
  if (is.null(palette)) {
    if (verbosity > 0L) {
      msg2(hilite("The following palettes are available:"))
      print(names(rtemis_palettes))
    }
  } else {
    palette <- match.arg(
      palette,
      names(rtemis_palettes)
    )
    rtemis_palettes[[palette]]
  }
} # rtemis::rtpalette


#' Access rtemis palette colors
#'
#' Allows you to get `n` colors of a defined palette, useful for passing to other functions, like
#' ggplot.
#'
#' @param n Integer: Number of colors to output
#' @param palette Character: Palette to use. See available options with `rtpalette()`.
#'
#' @author EDG
#' @keywords internal
#' @noRd
#'
#' @examples
#' \dontrun{
#' rtemis_palette(3)
#' }
rtemis_palette <- function(n, palette = rtemis_palette) {
  .palette <- unlist(rtpalette(palette))
  names(.palette) <- NULL
  .palette[seq_len(n)]
} # rtemis::rtemis_palette

penn_heat <- function(
  n = 11,
  space = "Lab",
  demo = FALSE,
  colorbar = FALSE,
  bar_min = -1,
  bar_mid = 0,
  bar_max = 1,
  cex = 1.2,
  filename = NULL,
  col_text = "black"
) {
  # Arguments ----
  if (!is.null(filename)) colorbar <- TRUE

  # Gradient ----
  n <- as.integer(n)
  midpoint <- ceiling(n / 2)
  if (space == "RGB") {
    penn.vlight2blue <- grDevices::colorRampPalette(
      c(
        color_adjust(pennCol[["blue"]], hue = -.08, val = .568),
        pennCol[["blue"]]
      )
    )
    penn.blue2red2yellow <- grDevices::colorRampPalette(
      c(pennCol[["blue"]], pennCol[["red"]], pennCol[["yellow"]])
    )
    grad <- c(
      penn.vlight2blue(midpoint),
      penn.blue2red2yellow(n - midpoint)
    )
  } else {
    penn.vlight2blue.lab <- grDevices::colorRampPalette(
      c(
        color_adjust(pennCol[["blue"]], hue = -.08, val = .568),
        pennCol[["blue"]]
      ),
      space = "Lab"
    )
    penn.blue2red2yellow.lab <- grDevices::colorRampPalette(
      c(
        pennCol[["blue"]],
        color_adjust(pennCol[["red"]], val = .1),
        pennCol[["yellow"]]
      ),
      space = "Lab"
    )
    grad <- c(
      penn.vlight2blue.lab(midpoint),
      penn.blue2red2yellow.lab(n - midpoint + 1)[-1]
    )
  }

  # Demo ----
  if (demo) {
    plot(
      rep(1, n),
      col = grad,
      pch = 19,
      cex = 6,
      xlim = c(0.5, n + .5),
      ylim = c(.8, 1.2),
      ann = FALSE,
      axes = FALSE
    )
    text(
      x = 0.25,
      y = 1.05,
      labels = paste0("Penn heat colors (n = ", n, ")"),
      adj = 0,
      cex = 1.5
    )
    segments(midpoint, .95, midpoint, 1.05, lwd = 2, lty = 2, col = NA)
  }

  if (colorbar) {
    # bar.grad <- c(penn.vlight2blue.lab(31), penn.blue2red2yellow.lab(30))
    par.orig <- par(no.readonly = TRUE)
    par(mar = c(1, 1, 1, 1))
    if (!is.null(filename)) grDevices::pdf(filename, width = 3, height = 9)
    plot(
      rep(1, n),
      1:n,
      col = grad,
      pch = 19,
      cex = 6,
      xlim = c(0.5, 1.5),
      ylim = c(.5, n + .5),
      ann = FALSE,
      axes = FALSE
    )
    # text(1.5, c(1, midpoint, n), labels = c(bar_min, bar_mid, bar_max), col = col_text)
    axis(
      side = 4,
      at = c(1, midpoint, n),
      labels = c(bar_min, bar_mid, bar_max),
      col = color_adjust("black", 0),
      col.axis = col_text,
      col.ticks = color_adjust("black", 0),
      pos = 1.1,
      las = 1,
      cex.axis = cex,
      hadj = 0
    )
    if (!is.null(filename)) grDevices::dev.off()
    par(par.orig)
  }

  return(grad)
} # rtemis::penn_heat

# Xterm Colors ----
XtermCol <- list(
  `Black (SYSTEM)` = "#000000",
  `Maroon (SYSTEM)` = "#800000",
  `Green (SYSTEM)` = "#008000",
  `Olive (SYSTEM)` = "#808000",
  `Navy (SYSTEM)` = "#000080",
  `Purple (SYSTEM)` = "#800080",
  `Teal (SYSTEM)` = "#008080",
  `Silver (SYSTEM)` = "#c0c0c0",
  `Grey (SYSTEM)` = "#808080",
  `Red (SYSTEM)` = "#ff0000",
  `Lime (SYSTEM)` = "#00ff00",
  `Yellow (SYSTEM)` = "#ffff00",
  `Blue (SYSTEM)` = "#0000ff",
  `Fuchsia (SYSTEM)` = "#ff00ff",
  `Aqua (SYSTEM)` = "#00ffff",
  `White (SYSTEM)` = "#ffffff",
  Grey0 = "#000000",
  NavyBlue = "#00005f",
  DarkBlue = "#000087",
  Blue3 = "#0000af",
  Blue3 = "#0000d7",
  Blue1 = "#0000ff",
  DarkGreen = "#005f00",
  DeepSkyBlue4 = "#005f5f",
  DeepSkyBlue4 = "#005f87",
  DeepSkyBlue4 = "#005faf",
  DodgerBlue3 = "#005fd7",
  DodgerBlue2 = "#005fff",
  Green4 = "#008700",
  SpringGreen4 = "#00875f",
  Turquoise4 = "#008787",
  DeepSkyBlue3 = "#0087af",
  DeepSkyBlue3 = "#0087d7",
  DodgerBlue1 = "#0087ff",
  Green3 = "#00af00",
  SpringGreen3 = "#00af5f",
  DarkCyan = "#00af87",
  LightSeaGreen = "#00afaf",
  DeepSkyBlue2 = "#00afd7",
  DeepSkyBlue1 = "#00afff",
  Green3 = "#00d700",
  SpringGreen3 = "#00d75f",
  SpringGreen2 = "#00d787",
  Cyan3 = "#00d7af",
  DarkTurquoise = "#00d7d7",
  Turquoise2 = "#00d7ff",
  Green1 = "#00ff00",
  SpringGreen2 = "#00ff5f",
  SpringGreen1 = "#00ff87",
  MediumSpringGreen = "#00ffaf",
  Cyan2 = "#00ffd7",
  Cyan1 = "#00ffff",
  DarkRed = "#5f0000",
  DeepPink4 = "#5f005f",
  Purple4 = "#5f0087",
  Purple4 = "#5f00af",
  Purple3 = "#5f00d7",
  BlueViolet = "#5f00ff",
  Orange4 = "#5f5f00",
  Grey37 = "#5f5f5f",
  MediumPurple4 = "#5f5f87",
  SlateBlue3 = "#5f5faf",
  SlateBlue3 = "#5f5fd7",
  RoyalBlue1 = "#5f5fff",
  Chartreuse4 = "#5f8700",
  DarkSeaGreen4 = "#5f875f",
  PaleTurquoise4 = "#5f8787",
  SteelBlue = "#5f87af",
  SteelBlue3 = "#5f87d7",
  CornflowerBlue = "#5f87ff",
  Chartreuse3 = "#5faf00",
  DarkSeaGreen4 = "#5faf5f",
  CadetBlue = "#5faf87",
  CadetBlue = "#5fafaf",
  SkyBlue3 = "#5fafd7",
  SteelBlue1 = "#5fafff",
  Chartreuse3 = "#5fd700",
  PaleGreen3 = "#5fd75f",
  SeaGreen3 = "#5fd787",
  Aquamarine3 = "#5fd7af",
  MediumTurquoise = "#5fd7d7",
  SteelBlue1 = "#5fd7ff",
  Chartreuse2 = "#5fff00",
  SeaGreen2 = "#5fff5f",
  SeaGreen1 = "#5fff87",
  SeaGreen1 = "#5fffaf",
  Aquamarine1 = "#5fffd7",
  DarkSlateGray2 = "#5fffff",
  DarkRed = "#870000",
  DeepPink4 = "#87005f",
  DarkMagenta = "#870087",
  DarkMagenta = "#8700af",
  DarkViolet = "#8700d7",
  Purple = "#8700ff",
  Orange4 = "#875f00",
  LightPink4 = "#875f5f",
  Plum4 = "#875f87",
  MediumPurple3 = "#875faf",
  MediumPurple3 = "#875fd7",
  SlateBlue1 = "#875fff",
  Yellow4 = "#878700",
  Wheat4 = "#87875f",
  Grey53 = "#878787",
  LightSlateGrey = "#8787af",
  MediumPurple = "#8787d7",
  LightSlateBlue = "#8787ff",
  Yellow4 = "#87af00",
  DarkOliveGreen3 = "#87af5f",
  DarkSeaGreen = "#87af87",
  LightSkyBlue3 = "#87afaf",
  LightSkyBlue3 = "#87afd7",
  SkyBlue2 = "#87afff",
  Chartreuse2 = "#87d700",
  DarkOliveGreen3 = "#87d75f",
  PaleGreen3 = "#87d787",
  DarkSeaGreen3 = "#87d7af",
  DarkSlateGray3 = "#87d7d7",
  SkyBlue1 = "#87d7ff",
  Chartreuse1 = "#87ff00",
  LightGreen = "#87ff5f",
  LightGreen = "#87ff87",
  PaleGreen1 = "#87ffaf",
  Aquamarine1 = "#87ffd7",
  DarkSlateGray1 = "#87ffff",
  Red3 = "#af0000",
  DeepPink4 = "#af005f",
  MediumVioletRed = "#af0087",
  Magenta3 = "#af00af",
  DarkViolet = "#af00d7",
  Purple = "#af00ff",
  DarkOrange3 = "#af5f00",
  IndianRed = "#af5f5f",
  HotPink3 = "#af5f87",
  MediumOrchid3 = "#af5faf",
  MediumOrchid = "#af5fd7",
  MediumPurple2 = "#af5fff",
  DarkGoldenrod = "#af8700",
  LightSalmon3 = "#af875f",
  RosyBrown = "#af8787",
  Grey63 = "#af87af",
  MediumPurple2 = "#af87d7",
  MediumPurple1 = "#af87ff",
  Gold3 = "#afaf00",
  DarkKhaki = "#afaf5f",
  NavajoWhite3 = "#afaf87",
  Grey69 = "#afafaf",
  LightSteelBlue3 = "#afafd7",
  LightSteelBlue = "#afafff",
  Yellow3 = "#afd700",
  DarkOliveGreen3 = "#afd75f",
  DarkSeaGreen3 = "#afd787",
  DarkSeaGreen2 = "#afd7af",
  LightCyan3 = "#afd7d7",
  LightSkyBlue1 = "#afd7ff",
  GreenYellow = "#afff00",
  DarkOliveGreen2 = "#afff5f",
  PaleGreen1 = "#afff87",
  DarkSeaGreen2 = "#afffaf",
  DarkSeaGreen1 = "#afffd7",
  PaleTurquoise1 = "#afffff",
  Red3 = "#d70000",
  DeepPink3 = "#d7005f",
  DeepPink3 = "#d70087",
  Magenta3 = "#d700af",
  Magenta3 = "#d700d7",
  Magenta2 = "#d700ff",
  DarkOrange3 = "#d75f00",
  IndianRed = "#d75f5f",
  HotPink3 = "#d75f87",
  HotPink2 = "#d75faf",
  Orchid = "#d75fd7",
  MediumOrchid1 = "#d75fff",
  Orange3 = "#d78700",
  LightSalmon3 = "#d7875f",
  LightPink3 = "#d78787",
  Pink3 = "#d787af",
  Plum3 = "#d787d7",
  Violet = "#d787ff",
  Gold3 = "#d7af00",
  LightGoldenrod3 = "#d7af5f",
  Tan = "#d7af87",
  MistyRose3 = "#d7afaf",
  Thistle3 = "#d7afd7",
  Plum2 = "#d7afff",
  Yellow3 = "#d7d700",
  Khaki3 = "#d7d75f",
  LightGoldenrod2 = "#d7d787",
  LightYellow3 = "#d7d7af",
  Grey84 = "#d7d7d7",
  LightSteelBlue1 = "#d7d7ff",
  Yellow2 = "#d7ff00",
  DarkOliveGreen1 = "#d7ff5f",
  DarkOliveGreen1 = "#d7ff87",
  DarkSeaGreen1 = "#d7ffaf",
  Honeydew2 = "#d7ffd7",
  LightCyan1 = "#d7ffff",
  Red1 = "#ff0000",
  DeepPink2 = "#ff005f",
  DeepPink1 = "#ff0087",
  DeepPink1 = "#ff00af",
  Magenta2 = "#ff00d7",
  Magenta1 = "#ff00ff",
  OrangeRed1 = "#ff5f00",
  IndianRed1 = "#ff5f5f",
  IndianRed1 = "#ff5f87",
  HotPink = "#ff5faf",
  HotPink = "#ff5fd7",
  MediumOrchid1 = "#ff5fff",
  DarkOrange = "#ff8700",
  Salmon1 = "#ff875f",
  LightCoral = "#ff8787",
  PaleVioletRed1 = "#ff87af",
  Orchid2 = "#ff87d7",
  Orchid1 = "#ff87ff",
  Orange1 = "#ffaf00",
  SandyBrown = "#ffaf5f",
  LightSalmon1 = "#ffaf87",
  LightPink1 = "#ffafaf",
  Pink1 = "#ffafd7",
  Plum1 = "#ffafff",
  Gold1 = "#ffd700",
  LightGoldenrod2 = "#ffd75f",
  LightGoldenrod2 = "#ffd787",
  NavajoWhite1 = "#ffd7af",
  MistyRose1 = "#ffd7d7",
  Thistle1 = "#ffd7ff",
  Yellow1 = "#ffff00",
  LightGoldenrod1 = "#ffff5f",
  Khaki1 = "#ffff87",
  Wheat1 = "#ffffaf",
  Cornsilk1 = "#ffffd7",
  Grey100 = "#ffffff",
  Grey3 = "#080808",
  Grey7 = "#121212",
  Grey11 = "#1c1c1c",
  Grey15 = "#262626",
  Grey19 = "#303030",
  Grey23 = "#3a3a3a",
  Grey27 = "#444444",
  Grey30 = "#4e4e4e",
  Grey35 = "#585858",
  Grey39 = "#626262",
  Grey42 = "#6c6c6c",
  Grey46 = "#767676",
  Grey50 = "#808080",
  Grey54 = "#8a8a8a",
  Grey58 = "#949494",
  Grey62 = "#9e9e9e",
  Grey66 = "#a8a8a8",
  Grey70 = "#b2b2b2",
  Grey74 = "#bcbcbc",
  Grey78 = "#c6c6c6",
  Grey82 = "#d0d0d0",
  Grey85 = "#dadada",
  Grey89 = "#e4e4e4",
  Grey93 = "#eeeeee"
)