Updated doc.

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}
+#' Arguments to the function should be based on \url{http://waterservices.usgs.gov} service calls.
 #'
-#' @param service string
+#' @param service string. Possible values are "iv" (for instantaneous), "dv" (for daily values), "gwlevels" 
+#' (for groundwater levels), and "qwdata" (for water quality)
 #' @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 
@@ -21,7 +22,7 @@ getNWISData <- function(service="dv", ...){
   
   baseURL <- paste0("http://waterservices.usgs.gov/nwis/",service,"/?format=rdb&")
   urlCall <- paste0(baseURL,urlCall)
-  if(service=="qw"){
+  if(service=="qwdata"){
     urlCall <- paste0(urlCall,"&siteOutput=expanded")
   }
   

man/getNWISData.Rd

@@ -6,7 +6,8 @@
 getNWISData(service = "dv", ...)
 }
 \arguments{
-\item{services}{string}
+\item{service}{string. Possible values are "iv" (for instantaneous), "dv" (for daily values), "gwlevels"
+(for groundwater levels), and "qwdata" (for water quality)}
 
 \item{\dots}{see \url{http://waterservices.usgs.gov/rest/Site-Service.html#Service} for a complete list of options}
 }
@@ -15,7 +16,7 @@ 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}
+Arguments to the function should be based on \url{http://waterservices.usgs.gov} service calls.
 }
 \examples{
 dataTemp <- getNWISData(stateCd="OH",parameterCd="00010")