In The-Strategy-Unit/StrategyUnitTheme: Strategy Unit Theme

library(knitr)
library(tidyverse)
library(StrategyUnitTheme)

# set default options
opts_chunk$set(echo = FALSE,
               dpi = 300,
               dev.args = list(type = "cairo"))

# if you want to use the Strategy Unit Theme colours change the variable below
# to true
use_su_theme_colours <- FALSE

if (use_su_theme_colours) {
  scale_fill_continuous <- partial(scale_fill_su, discrete = FALSE)
  scale_fill_discrete <- partial(scale_fill_su, discrete = TRUE)
  scale_colour_continuous <- partial(scale_colour_su, discrete = FALSE)
  scale_colour_discrete <- partial(scale_colour_su, discrete = TRUE)

  scale_color_continuous <- scale_colour_continuous
  scale_color_discrete <- scale_colour_discrete
}