Download all StreamCat metrics for specific state or hydroregion

State_Hydro_StreamCat_Download.R

library(RCurl)
library(stringr)
url <- "https://gaftp.epa.gov/EPADataCommons/ORD/NHDPlusLandscapeAttributes/StreamCat/States/" # can use hydro dir here instead

filenames <- getURL(url, userpwd="", ftp.use.epsv = FALSE, verbose=FALSE,dirlistonly = TRUE, ssl.verifypeer = FALSE)
destnames <- strsplit(filenames, "\r*\n")[[1]]
destnames = destnames[grep("_OR.zip", destnames)] # different state - or hydroregion if in hydroregion directory
setwd('somedir/subdir') # where you want to download
for (d in destnames){
  d <- str_match_all(d, "href=\"(.*?)\"")
  d <- d[[1]][2]
  download.file(paste0(url,d),d)
}