From 7a33f20e66bc0627a1d6f98eda4018e5612ce9ab Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Thu, 18 Sep 2014 16:20:42 -0500
Subject: [PATCH] Removed check for 8 digits, added option for multiple sites.
---
R/getSiteFileData.r | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/R/getSiteFileData.r b/R/getSiteFileData.r
index 228a49c7..c8f71f56 100644
--- a/R/getSiteFileData.r
+++ b/R/getSiteFileData.r
@@ -3,18 +3,16 @@
#' Imports data from USGS site file site. This function gets data from here: \url{http://waterservices.usgs.gov/}
#'
#' @param siteNumber string USGS site number. This is usually an 8 digit number
-#' @param interactive logical Option for interactive mode. If true, there is user interaction for error handling and data checks.
#' @keywords data import USGS web service
#' @return retval dataframe with all information found in the expanded site file
#' @export
#' @examples
#' # These examples require an internet connection to run
#' siteINFO <- getSiteFileData('05114000')
-getSiteFileData <- function(siteNumber="",interactive=TRUE){
-
- # Checking for 8 digit site ID:
- siteNumber <- formatCheckSiteNumber(siteNumber, interactive=interactive)
+#' siteINFOMulti <- getSiteFileData(c('05114000','09423350'))
+getSiteFileData <- function(siteNumber){
+ siteNumber <- paste(siteNumber,collapse=",")
urlSitefile <- paste("http://waterservices.usgs.gov/nwis/site/?format=rdb&siteOutput=Expanded&sites=",siteNumber,sep = "")
doc = tryCatch({
--
GitLab