# NOT RUN {
library(sf)
library(dplyr)
nldi_nwis <- list(featureSource = "nwissite", featureID = "USGS-05428500")
basin <- get_nldi_basin(nldi_feature = nldi_nwis)
basin %>%
st_geometry() %>%
plot()
basin
# }
Run the code above in your browser using DataLab