R/bcg_fill_manual.R

In Tony-Chen-Melbourne/bcggtheme: Create ggplot charts in the style of BCG

#' Easily fill your ggplot data using the BCG palette
#' @name bcg_fill_manual
#' @param pal Choose the colour palette, either "base" or "traffic2" or "traffic3". Defaults to "base".
#' @param reverse Flip the order of colours in the palette. TRUE or FALSE. Defaults to FALSE.
#' @import ggplot2
#' @export

bcg_fill_manual <- function(...,
                            pal = "bright",
                            reverse = FALSE) {

  palette <- bcggtheme::bcg_palette(pal = pal)

  if(reverse == TRUE) {
    palette <- palette %>% rev()

  }

  if(reverse == FALSE) {

    palette <- palette

  }

  ret <- ggplot2::scale_fill_manual(...,
                                      values =
                                        palette
  )


return(ret)

}