R/palettes.R

In djnavarro/damage: Create Generative Art

select_palette <- function(seed) {
  set.seed(seed)
  #n <- sample(2:4, 1)
  palette_name <- sample(unique(colores$palette_name), 1)
  palette_base <- colores$colour[colores$palette_name == palette_name]
  #palette_fn <- grDevices::colorRampPalette(palette_base)
  #shades <- palette_fn(n)
  #shades <- sample(palette_base, n)
  return(palette_base)
}