demos/get_color_scale_demo.R

In deandevl/RpalettePkg: User Defined Color Palettes

library(ggplot2)
library(RpalettePkg)
library(here)

current_dir <- here()
palette_file_path <- file.path(current_dir,"demos/data/my_palette.rds")

color_scale_discrete <- RpalettePkg::get_color_scale(
  palette_path = palette_file_path,
  scale_title = "my_discrete_color_scale"
)

color_scale_gradient <- RpalettePkg::get_color_scale(
  discrete = FALSE,
  palette_path = palette_file_path,
  scale_title = "my_gradient_color_scale"
)