library(rSDM)
library(leaflet)

occs <- as.data.frame(readr::read_csv(file.path(root, "data/locs_30m.csv")))

All species

occmap(occs, bg = 'leaflet', pcol = "black") %>%
  addProviderTiles(providers$OpenStreetMap)

C. macloviana

occmap(occs[occs$species == "macloviana", ], bg = "leaflet", pcol = "black") %>%
  addProviderTiles(providers$OpenStreetMap)

C. magellanica

occmap(occs[occs$species == "magellanica", ], bg = "leaflet", pcol = "black") %>%
  addProviderTiles(providers$OpenStreetMap)

C. microglochin

occmap(occs[occs$species == "microglochin", ], bg = "leaflet", pcol = "black") %>%
  addProviderTiles(providers$OpenStreetMap)

C. canescens

occmap(occs[occs$species == "canescens", ], bg = "leaflet", pcol = "black") %>%
  addProviderTiles(providers$OpenStreetMap)

C. maritima

occmap(occs[occs$species == "maritima", ], bg = "leaflet", pcol = "black") %>%
  addProviderTiles(providers$OpenStreetMap)