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

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

## ----inventory----------------------------------------------------------------
list_palettes()[c("name", "type", "n_color")]

## ----gallery, eval = FALSE----------------------------------------------------
# palette_gallery()

## ----qualitative-gallery, fig.height = 6--------------------------------------
pages <- palette_gallery(type = "qualitative", verbose = FALSE)
pages[["qualitative_page1"]]

## ----qualitative-selection----------------------------------------------------
get_palette("babel", n = 5)

## ----sequential-gallery, fig.height = 3---------------------------------------
pages <- palette_gallery(type = "sequential", verbose = FALSE)
pages[["sequential_page1"]]

## ----sequential-selection-----------------------------------------------------
get_palette("mitonuclear_blue", n = 3)
get_palette("mitonuclear_orange", n = 8)

## ----diverging-gallery, fig.height = 3----------------------------------------
pages <- palette_gallery(type = "diverging", verbose = FALSE)
pages[["diverging_page1"]]

## ----diverging-selection------------------------------------------------------
get_palette("walter_white", n = 7)

## ----use-palettes, eval = FALSE-----------------------------------------------
# # Unordered categories
# scale_color_biopalette("three_body")
# scale_fill_biopalette("tam_pastel")
# 
# # Ordered continuous values
# scale_fill_biopalette_gradient("mitonuclear_blue")
# 
# # Signed values around zero
# scale_color_biopalette_gradient("walter_white", midpoint = 0)