R/kleur_fun.R

In brilstl/ggois: This package has some convenient wrappers on ggplot2 for OIS dep. of the municipality of Amsterdam

#' @title kleuren brewer voor OIS huisstijl
#' @param dim het aantal unieke waardes in de fill
#' @param palette a vector of colors
#' @export
kleur_fun <- function(dim, palette = c(os_colours$darkblue, os_colours$grey3, os_colours$lightblue)){

  kleur <- palette

  if(dim < 3){

    brew_fun <- grDevices::colorRampPalette(kleur)

    kleur <- brew_fun(dim*4)

    kleur <- kleur[c(1, length(kleur))]

    kleur

  }else if(dim == 3){

    brew_fun <- grDevices::colorRampPalette(kleur)

    kleur <- brew_fun(dim*4)

    kleur <- kleur[c(1, (length(kleur)/2), length(kleur))]

    kleur


  }else{

    brew_fun <- grDevices::colorRampPalette(kleur)

    kleur <- brew_fun(dim)

    kleur

  }




}