if (FALSE) {
data <- pbdb_occurrences(
limit = "all", vocab = "pbdb", base_name = "Canis", show = "coords"
)
X11(width = 12, height = 8)
pbdb_map(data)
pbdb_map(data, pch = 1)
pbdb_map(
data,
pch = 19,
col_point = c("pink", "red"),
col_ocean = "light blue",
main = "Canis"
)
}
Run the code above in your browser using DataLab