R/z-make-color-cat.R

In jpmarindiaz/paletero: Color palettes and scales.

#'
#' #' @export
#' cat_palette <- function(color, n, mode = "iwanthue",
#'                         h_range = 100, c_range = 10, l_range = 10,
#'                         h_center = NULL, c_center = NULL, l_center = NULL
#'                         ){
#'
#'   #color <- "#54d7f9"
#'   rgb <- decode_colour(color)
#'   hcl <- convert_colour(rgb, "rgb", "hcl")
#'   h_center <- h_center %||% hcl[1,'h']
#'   c_center <- c_center %||% hcl[1,'c']
#'   l_center <- l_center %||% hcl[1,'l']
#'   m <- 1000
#'   h_r <- runif(m, h_center - h_range/2, h_center + h_range/2)
#'   c_r <- runif(m, c_center - c_range/2, c_center + c_range/2)
#'   l_r <- runif(m, l_center - l_range/2, l_center + l_range/2)
#'   rand_hcl <- cbind(h_r,c_r,l_r)
#'   rand_lab <- convert_colour(rand_hcl, 'hcl','lab')
#'   k_means <- kmeans(rand_lab, n)
#'   centers <- tibble::tibble(centers = k_means$centers, sizes = k_means$size)
#'   centers <- centers %>% dplyr::arrange(desc(sizes))
#'   encode_colour(centers$centers, from = "lab")
#' }
#'