From 185c19c23059335075e6ef7b8d2bd4fe006d09eb Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Tue, 16 Sep 2014 11:40:09 -0500
Subject: [PATCH] Updated doc.
---
R/getNWISData.r | 7 ++++---
man/getNWISData.Rd | 5 +++--
2 files changed, 7 insertions(+), 5 deletions(-)
diff --git a/R/getNWISData.r b/R/getNWISData.r
index 64f286f6..bd1cf61f 100644
--- a/R/getNWISData.r
+++ b/R/getNWISData.r
@@ -1,9 +1,10 @@
#' 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")
}
diff --git a/man/getNWISData.Rd b/man/getNWISData.Rd
index 6f95b844..75ab3649 100644
--- a/man/getNWISData.Rd
+++ b/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")
--
GitLab