R script to scrape US EPA NARS data and metadata

get_nars.R

#Script to scrape NARS website
library(rvest)
library(dplyr)
nars <- read_html("https://www.epa.gov/national-aquatic-resource-surveys/data-national-aquatic-resource-surveys")

links <- nars %>%
  html_nodes(".file-link, a") %>%
  html_attr("href") %>%
  tbl_df() %>%
  filter(grepl("files",value)) %>%
  mutate(url = paste0("https://www.epa.gov",value))

for(i in seq_along(links$url)){
  httr::GET(links$url[i],httr::write_disk(basename(links$value[i]),overwrite=T))
}