## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.width = 7,
  fig.height = 4,
  fig.align = "center"
)

## ----load---------------------------------------------------------------------
library(biopalette)
library(ggplot2)

## ----palette-name-------------------------------------------------------------
get_palette("mitonuclear_blue", n = 5)

## ----sequential-handoff, eval = FALSE-----------------------------------------
# ggplot(map_data) +
#   geom_sf(aes(fill = value), color = "white", linewidth = 0.2) +
#   scale_fill_biopalette_gradient(
#     "mitonuclear_blue",
#     na.value = "grey85"
#   )

## ----diverging-handoff, eval = FALSE------------------------------------------
# scale_fill_biopalette_gradient(
#   "walter_white",
#   midpoint = 0
# )