# \donttest{
data("princess_db")
princess_db
# Select a palette
maori <- princess_db %>%
filter(pal == "maori")
f <- system.file("extdata/volcano2.tif", package = "tidyterra")
r <- terra::rast(f)
library(ggplot2)
p <- ggplot() +
geom_spatraster(data = r) +
labs(fill = "elevation")
p +
scale_fill_gradientn(colors = maori$hex)
# }
Run the code above in your browser using DataLab