data-raw/create_lagos_extent.R

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

dt <- LAGOSNE::lagosne_load("1.087.1")
dt <- coordinatize(dt$locus)

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

devtools::use_data(lg_extent, overwrite = TRUE)
pjhanly/LAGOSUS documentation built on July 2, 2023, 12:51 a.m.