Find VPU

Find Vector Processing Unit from sf object

find_vpu(pnt)

Arguments

pnt

sf object

Value

A character vector of vpu ids

Examples

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