inst/extdata/sample_flines.R

source(system.file("extdata", "utils.R", package = "nhdplusTools"))

data_dir <- file.path(tempdir(check = TRUE), "nhdplusTools")

download_pkg_data("petapsco_flowlines.gpkg",
                  "https://doi-usgs.github.io/nhdplusTools/data/petapsco_flowlines.gpkg",
                  data_dir)

sample_flines <- sf::read_sf(file.path(data_dir, "petapsco_flowlines.gpkg"))
dblodgett-usgs/nhdplusTools documentation built on March 26, 2024, 12:12 p.m.