data-raw/data-generator.R

In rdpauw/ggugent: What the Package Does (One Line, Title Case)

# Generate internal color palettes data `R/sysdata.rda`
#
# [1] R Packages - Internal data. http://r-pkgs.had.co.nz/data.html#data-sysdata
# [2] Name that Color. http://chir.ag/projects/name-that-color/

ggugent_db <- vector("list")

# Discrete Color Palettes

# Color palette inspired by plots in Nature Reviews Cancer
ggugent_db$"ugent"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "UGENT Yellow" = "#FFD200",
  "Black" = "#000000"
)

# Color palette inspired by plots in Science from AAAS
ggugent_db$"lw"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "UGENT Yellow" = "#FFD200",
  "Black" = "#000000", "LW" = "#F1A42B"
)

# Color palette inspired by plots in The New England Journal of Medicine
ggugent_db$"re"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "UGENT Yellow" = "#FFD200",
  "Black" = "#000000", "RE" = "#DC4E28"
)

# Color palette inspired by plots in Lancet Oncology
ggugent_db$"we"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "UGENT Yellow" = "#FFD200",
  "Black" = "#000000", "WE" = "#2D8CA8"
)

# Color palette inspired by plots in The Journal of the American Medical Association
ggugent_db$"ge"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "UGENT Yellow" = "#FFD200",
  "Black" = "#000000", "GE" = "#E85E71"
)

# Color palette inspired by plots in Journal of Clinical Oncology
ggugent_db$"ea"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "UGENT Yellow" = "#FFD200",
  "Black" = "#000000", "EA" = "#6F71B9"
)

# Color palette inspired by UCSC Genome Browser Chromosome Colors
ggugent_db$"eb"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "UGENT Yellow" = "#FFD200",
  "Black" = "#000000", "EB" = "#AEB050"
)

# Color palette inspired by D3.js
ggugent_db$"di"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "UGENT Yellow" = "#FFD200",
  "Black" = "#000000", "DI" = "#825491"
)

# Color palette inspired by D3.js
ggugent_db$"pp"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "UGENT Yellow" = "#FFD200",
  "Black" = "#000000", "PP" = "#FB7E3A"
)

# Color palette inspired by D3.js
ggugent_db$"bw"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "UGENT Yellow" = "#FFD200",
  "Black" = "#000000", "BW" = "#27ABAD"
)

# Color palette inspired by D3.js
ggugent_db$"fw"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "UGENT Yellow" = "#FFD200",
  "Black" = "#000000", "FW" = "#BE5190"
)

# Color palette inspired by IGV
ggugent_db$"ps"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "UGENT Yellow" = "#FFD200",
  "Black" = "#000000", "PS" = "#71A860"
)

# Color palette inspired by IGV
ggugent_db$"faculty"$"default" <- c(
  "UGENT Blue" = "#1E64C8", "LW" = "#FFB900",
  "RE" = "#DC4E28", "WE" = "#2D8CA8",
  "GE" = "#E85E71", "EA" = "#6F71B9",
  "EB" = "#AEB050", "DI" = "#825491",
  "PP" = "#FB7E3A", "BW" = "#27ABAD",
  "FW" = "#BE5190", "PS" = "#71A860"
)

save(ggugent_db, file = "R/sysdata.rda")