Added generalized getNWISData function.

NAMESPACE

@@ -15,6 +15,7 @@ export(getDataAvailability)
 export(getDataFromFile)
 export(getGeneralWQPData)
 export(getMetaData)
+export(getNWISData)
 export(getNWISSites)
 export(getParameterInfo)
 export(getQWDataFromFile)

R/getNWISData.r

+#' General Data Import from NWIS
+#'
+#' Returns data from the NWIS web service.
+#' Arguments to the function should be based on \url{http://waterservices.usgs.gov/rest/Site-Service.html#Service}
+#'
+#' @param service string
+#' @param \dots see \url{http://waterservices.usgs.gov/rest/Site-Service.html#Service} for a complete list of options
+#' @keywords data import NWIS web service
+#' @return retval dataframe 
+#' @export
+#' @examples
+#' dataTemp <- getNWISData(stateCd="OH",parameterCd="00010")
+getNWISData <- function(service="dv", ...){
+  
+  matchReturn <- match.call()
+  
+  values <- sapply(matchReturn[-1], function(x) URLencode(as.character(paste(eval(x),collapse="",sep=""))))
+  
+  urlCall <- paste(paste(names(values),values,sep="="),collapse="&")
+  
+  
+  baseURL <- paste0("http://waterservices.usgs.gov/nwis/",service,"/?format=rdb&")
+  urlCall <- paste0(baseURL,urlCall)
+  if(service=="qw"){
+    urlCall <- paste0(urlCall,"&siteOutput=expanded")
+  }
+  
+  retval <- getRDB1Data(urlCall)
+  
+  return(retval)
+}

man/getNWISData.Rd

+% Generated by roxygen2 (4.0.2): do not edit by hand
+\name{getNWISData}
+\alias{getNWISData}
+\title{General Data Import from NWIS}
+\usage{
+getNWISData(service = "dv", ...)
+}
+\arguments{
+\item{services}{string}
+
+\item{\dots}{see \url{http://waterservices.usgs.gov/rest/Site-Service.html#Service} for a complete list of options}
+}
+\value{
+retval dataframe
+}
+\description{
+Returns data from the NWIS web service.
+Arguments to the function should be based on \url{http://waterservices.usgs.gov/rest/Site-Service.html#Service}
+}
+\examples{
+dataTemp <- getNWISData(stateCd="OH",parameterCd="00010")
+}
+\keyword{NWIS}
+\keyword{data}
+\keyword{import}
+\keyword{service}
+\keyword{web}
+