diff --git a/R/getDataAvailability.r b/R/getDataAvailability.r
index a54f9651c4e1ac7c300352d405ab29e2985fdcaf..a217d83a4ef13bf0c1aedeaa0d7142f2c4e0e3a0 100644
--- a/R/getDataAvailability.r
+++ b/R/getDataAvailability.r
@@ -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({