Occurrence maps

library(rSDM)
library(leaflet)

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

All species

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

C. macloviana

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

C. magellanica

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

C. microglochin

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

C. canescens

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

C. maritima

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