R/suri_purple.R

In crodriguez-saltos/hummingbrain:

Defines functions suri_purple

Documented in suri_purple

#'suri_purple
#'@export
suri_purple <- function(n){
  pal <- c('#f7fcfd','#e0ecf4','#bfd3e6','#9ebcda','#8c96c6','#8c6bb1','#88419d','#810f7c','#4d004b')
  pal[1:n]
}