R/scale_fill_tailwind2.R

In willcanniford/ggtailwind: Makes available tailwind's colour scheme for ggplot2

#' Use tailwind palettes to colour ggplot2 plots
#'
#' @param palette Palette function, use \code{tailwind_pal_scale}
#' @param discrete Boolean, is the colour variable categorical/discrete
#' @param reverse Boolean, whether you want to flip palette order
#' @param ... Additional options to pass to \code{discrete_scale} or \code{scale_fill_gradientn}
#' 
#' @importFrom ggplot2 scale_fill_gradientn
#' @importFrom ggplot2 discrete_scale
#' 
#' @export
scale_fill_tailwind2 <-
function(palette, discrete = TRUE, reverse = FALSE, ...) {
  if (discrete) {
    discrete_scale("fill", paste0("tailwind_", palette), palette = palette, ...)
  } else {
    scale_fill_gradientn(colours = palette(256), ...)
  }
}