diff --git a/R/getSiteFileData.r b/R/getSiteFileData.r
index 228a49c701f56fcdadd9d442482d132b006b9418..c8f71f56145d1e6ba5c502119308cd61fd102091 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({