#' @importFrom paletteer paletteer_d paletteer_dynamic paletteer_c
#' @importFrom purrr map is_empty
#' @importFrom rlang "!!"
get_paletteer = function(palette){
pals = paletteers
pal_src = paste0("^", palette, "$")
idx = purrr::map(pals$palettes, function(x) grep(pal_src, x$palette))
type_indx = which(unlist(lapply(idx, function(x) !purrr::is_empty(x))))
idx = unlist(idx)
pkg = pals$palettes[[type_indx]][idx,"package"]
switch(pals$type[type_indx],
"discrete" = {
paletteer::paletteer_d(package = !!pkg,
palette = !!palette,
)
},
"dynamic" = {
paletteer::paletteer_dynamic(package = !!pkg,
palette = !!palette,
pals$palettes[[type_indx]][idx,"length"])
},
"continuous" = {
paletteer::paletteer_c(package = !!pkg,
palette = !!palette,
5)
}
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.