R/warm_pal.R

In crodriguez-saltos/hummingbrain:

Defines functions warm_pal

Documented in warm_pal

#'warm_pal
#'@export
warm_pal <- function(n){
  pal <- c('#fff7ec','#fee8c8','#fdd49e','#fdbb84','#fc8d59', '#ef6548','#d7301f','#b30000',
           '#7f0000')
  pal[1:n]
}