data-raw/stageWBD.R

In tylerbhampton/watershedtools: Delineating Watersheds with R

# Stage USGS Watershed Boundary Dataset
# website: https://www.usgs.gov/core-science-systems/ngp/national-hydrography/access-national-hydrography-products
# file staged: http://prd-tnm.s3-website-us-west-2.amazonaws.com/?prefix=StagedProducts/Hydrography/WBD/HU2/Shape/

# Tested February 27, 2020
# 
# path="B:/MASTERDATA/data_Hydrology/hydrology_shapefiles/USA_WBD_WatershedBoundaryDataset"
# 
# nums=as.character(1:18)
# nums[nchar(nums)==1]=paste0("0",nums[nchar(nums)==1])
# 
# 
# sapply(nums,function(H){
#   print(H)
#   file=paste0("WBD_",H,"_HU2_Shape")
#   download.file(url=paste0("https://prd-tnm.s3.amazonaws.com/StagedProducts/Hydrography/WBD/HU2/Shape/WBD_",H,"_HU2_Shape.zip"),
#                 destfile = file.path(path,paste0(file,".zip")))
#   unzip(file.path(path,paste0(file,".zip")),exdir=file.path(path,file))
# 
# })