Find VPU

Source: R/utils.R

Find Vector Processing Unit from sf object

find_vpu(pnt)

Arguments

pnt

sf object

Value

A character vector of vpu ids

Examples

if (FALSE) {
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)
}