find_vpu function

Find VPU

Find Vector Processing Unit from sf object

find_vpu(pnt)

Arguments

• pnt: sf object

Returns

A character vector of vpu ids

Examples

## Not run:

library(sf)

# vpu centers
pnt <- st_cast(st_point_on_surface(nhdR::vpu_shp), "POINT")

find_vpu(pnt[1, ])
find_vpu(pnt)

find_vpu(nhdR::gull$sp$NHDWaterbody[1, ])
find_vpu(nhdR::gull$sp$NHDWaterbody)
## End(Not run)