17 lines
300 B
R
17 lines
300 B
R
# load libraries
|
|
library(sf)
|
|
|
|
# load data
|
|
|
|
|
|
layers <- c("NHDArea",
|
|
"NHDFlowline",
|
|
"NHDWaterbody",
|
|
"NHDPlusLandSea")
|
|
|
|
data <- list(NULL)
|
|
sf_use_s2(FALSE)
|
|
for (layer in layers){
|
|
data[[layer]] <- st_crop(st_read("data/data.gpkg", layer = layer), y = extent_bbox)
|
|
}
|