select_point_overlay {nhdR}

Select features clipped by a point buffer around a point

Description

Select features clipped by a point buffer around a point

Usage

select_point_overlay(pnt, sp, buffer_dist = units::as_units(4.75, "km"))

Arguments

pnt

geographic point of class sfc

sp

list of sf data frames

buffer_dist

numeric buffer with specified units

Value

A list of sf spatial objects

Examples

## Not run: 
wk <- wikilake::lake_wiki("Gull Lake (Michigan)")
pnt <- sf::st_sfc(sf::st_point(c(wk$Lon, wk$Lat)))
sf::st_crs(pnt) <- 4326
sp <- lapply(c("NHDWaterbody", "NHDFlowLine"),
  function(x) nhd_plus_load(vpu = 4, dsn = x))
names(sp) <- c("NHDWaterbody", "NHDFlowLine")
qry <- select_point_overlay(pnt = pnt, sp = sp)
plot(qry$NHDWaterbody$geometry, col = "blue")
plot(qry$NHDFlowLine$geometry, col = "cyan", add = TRUE)

## End(Not run)