Skip to content
Snippets Groups Projects
Commit 3dcb5d22 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Added multi-site option.

parent bbf0cb7d
No related branches found
No related tags found
1 merge request!13Added multiple sites to site requests.
Hide whitespace changes
Inline Side-by-side
Showing
with 4 additions and 1 deletion
R/getDataAvailability.r
+ 4
− 1
View file @ 3dcb5d22
......@@ -11,9 +11,12 @@
#' # These examples require an internet connection to run
#' availableData <- getDataAvailability('05114000')
#' # To find just unit value ('instantaneous') data:
#' uvData <- availableData <- getDataAvailability('05114000',type="uv")
#' uvData <- getDataAvailability('05114000',type="uv")
#' uvDataMulti <- getDataAvailability(c('05114000','09423350'),type="uv")
getDataAvailability <- function(siteNumber,type=c("uv","dv","qw")){
siteNumber <- paste(siteNumber,collapse=",")
urlSitefile <- paste("http://waterservices.usgs.gov/nwis/site/?format=rdb&seriesCatalogOutput=true&sites=",siteNumber,sep = "")
doc = tryCatch({
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment