ddplot: MAKING GGPLOT GRAPHICS IN DD STORY HUB STYLE

#' @importFrom grDevices colorRampPalette
#' @export

dd_pal <-
  function(palette = "main5",
           manual.pick = NULL,
           reverse = FALSE,
           ...) {
    stopifnot()

    if (is.null(manual.pick)) {
      pal <- dd_palettes[[palette]]

    } else {
      selected_colors <- manual.pick
      if (anyNA(dd_palettes[[palette]][selected_colors])) {
        stop(paste0('Your selected colors do not exist in ', palette, ' palette.'))
      }
      pal <- dd_palettes[[palette]][selected_colors]
    }

    if (reverse)
      pal <- rev(pal)

    grDevices::colorRampPalette(pal, ...)
  }