R/z-map_colors.R

In jpmarindiaz/paletero: Color palettes and scales.

#' #' @export
#' map_colors <- function(data, color_by = NULL, palette = NULL,
#'                        colors_df = NULL,
#'                        preview = FALSE){
#'
#'   if(is.null(palette) || class(palette) == "function") stop("Need a palette")
#'   f <- data
#'   if(is.empty(color_by)){
#'     palette <- palette[1]
#'     values <- rep(1,nrow(f))
#'   }else{
#'     values <- f[[color_by]]
#'   }
#'   colors <- paletero(values, palette)
#'   if(preview){
#'     paletero:::preview_colors(colors)
#'   }
#'   colors
#' }