find_vpu {nhdR}

Find VPU

Description

Find Vector Processing Unit from sf object

Usage

find_vpu(pnt)

Arguments

pnt

sf object

Value

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)