R/kleuren.R

In brilstl/ggtheme.ois: helper function to add ois style to ggplot2

#' @title kleuren brewer voor OIS huisstijl
#' @param dim het aantal unieke waardes in de fill
#' @export
kleur_fun <- function(dim, pal = kleuren$blauw){

  kleur <- pal

  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

        }




}