if (FALSE) {
canis_quaternary <- pbdb_occurrences(
limit = "all", base_name = "Canis", interval = "Quaternary",
show = c("coords", "classext"), vocab = "pbdb"
)
pbdb_temp_range(canis_quaternary, rank = "species", names = FALSE)
}
Run the code above in your browser using DataLab