R/aquatic_download.R

In eco4cast/NEONeco4cast:

aquatic_download <- function(){

  focal_sites <- c("BARC","FLNT")
  neon_download("DP1.20288.001", site =  focal_sites, type="basic") #Water Quality
  neon_download("DP1.20053.001", site =  focal_sites, type="basic") # Surface Water

}