nhdR (version 0.6.1)

find_vpu: Find VPU

Description

Find Vector Processing Unit from sf object

Usage

find_vpu(pnt)

Value

A character vector of vpu ids

Arguments

pnt

sf object

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)
}