nature_pal <- function(palette = "Yellowstone", reverse = FALSE, ...) {
pal <- nature_palettes[[palette]][[1]]
if(reverse) pal <- rev(pal)
grDevices::colorRampPalette(pal, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.