inst/extdata/new_hope_data.R

# See hyRefactor package for how this data was created.
# nolint start
extdata <- system.file("extdata", package = "nhdplusTools")
proj <- "+proj=aea +lat_1=29.5 +lat_2=45.5 +lat_0=23 +lon_0=-96 +x_0=0 +y_0=0 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs"
new_hope_catchment <- sf::read_sf(file.path(extdata, "new_hope.gpkg"), "CatchmentSP")
new_hope_catchment <- sf::st_transform(new_hope_catchment, proj)
new_hope_flowline <- sf::read_sf(file.path(extdata, "new_hope.gpkg"), "NHDFlowline_Network")
new_hope_flowline <- sf::st_transform(new_hope_flowline, proj)
# new_hope_fline_ref <- sf::read_sf(file.path(extdata, "new_hope_refactor.gpkg"))
# new_hope_fline_rec <- sf::read_sf(file.path(extdata, "new_hope_reconcile.gpkg"))
# new_hope_catchment_rec <- sf::read_sf(file.path(extdata, "new_hope_cat_rec.gpkg"))
new_hope_wbd <- sf::read_sf(file.path(extdata, "new_hope_wbd.gpkg"), "HUC12")
# nolint end
dblodgett-usgs/nhdplusTools documentation built on April 1, 2020, 1:14 a.m.