select_point_overlay: Select features clipped by a point buffer around a point

In jsta/nhdR: Tools for Working with the National Hydrography Dataset

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)

jsta/nhdR documentation built on Aug. 21, 2023, 3:35 p.m.