if (FALSE) {
data <- pbdb_occurrences(
limit = 1000, vocab = "pbdb", base_name = "mammalia",
show = c("classext", "coords")
)
X11(width = 13, height = 7.8)
pbdb_map_richness(data, res = 8, rank = "genus")
pbdb_map_richness(data, res = 8, rank = "family")
## Get the raster object without plotting the map
pbdb_map_richness(data, res = 8, rank = "family", do_plot = FALSE)
}
Run the code above in your browser using DataLab