::shelf(
librarian/bbnj,
BenioffOceanInitiative
dplyr, glue, leaflet, sf, tibble,quiet = T)
<- "/Users/bbest/My Drive/projects/bbnj/data"
dir_gdata <- glue("{dir_gdata}/raw/marineregions.org_boundaries/World_EEZ_v10_20180221/eez_v10.shp")
raw_eez_shp <- glue("{dir_gdata}/raw/marineregions.org_boundaries/Intersect_EEZ_IHO_v3_2018/EEZ_IHO_v3.shp")
raw_eez_iho_shp
<- read_sf(raw_eez_shp)
p_eez <- read_sf(raw_eez_iho_shp)
eez_iho
<- p_eez %>%
p_ant filter(Territory1 == "Antarctica")
leaflet() %>%
addProviderTiles(
$Esri.OceanBasemap, group = "Esri.OceanBasemap") %>%
providersaddProviderTiles(
$Stamen.Toner, group = "Stamen.Toner") %>%
providersaddPolygons(
data = bbnj::p_abnj,
color = "green",
group = "High Seas") %>%
addPolygons(
data = p_ant,
color = "red",
group = "Antarctica") %>%
addLayersControl(
baseGroups = c("Esri.OceanBasemap", "Stamen.Toner"),
overlayGroups = c("High Seas", "Antarctica"),
options = layersControlOptions(
collapsed = F))
Check BBNJ in Antarctica
High Seas and Antarctica
Antarctica was included in the High Seas for the BBNJ app analysis, however the shorelines around Antarctica are not consistently defined with the basemap layers commonly used (e.g., compare Esri.OceanBasemap vs. Stamen.Toner or Antarctica). You can see Antarctica according to MarineRegions.org World_EEZ_v10_20180221
. Uncheck the layer and you’ll see the High Seas includes it.