data-raw/create_lagos_extent.R

library(concaveman)
library(LAGOSNE)
library(sf)

dt <- LAGOSNE::lagosne_load(lagosne_version())
dt <- coordinatize(dt$locus)

lg_extent <- concaveman(
  st_sf(st_union(st_geometry(dt))))$polygons

devtools::use_data(lg_extent, overwrite = TRUE)
cont-limno/LAGOS documentation built on July 8, 2023, 2:34 a.m.