From 1d4a537061be002bbb3ba6b17ef16ff241b5d69f Mon Sep 17 00:00:00 2001
From: Laura DeCicco <ldecicco@usgs.gov>
Date: Wed, 9 Jul 2014 14:18:09 -0500
Subject: [PATCH] Updated dataAvailability info.

---
 vignettes/dataRetrieval.Rnw | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/vignettes/dataRetrieval.Rnw b/vignettes/dataRetrieval.Rnw
index cebaca8f..7cdae231 100644
--- a/vignettes/dataRetrieval.Rnw
+++ b/vignettes/dataRetrieval.Rnw
@@ -313,21 +313,15 @@ Site information is obtained from \url{http://waterservices.usgs.gov/rest/Site-T
 \subsubsection{getDataAvailability}
 \label{sec:usgsDataAvailability}
 %------------------------------------------------------------
-To discover what data is available for a particular USGS site, including measured parameters, period of record, and number of samples (count), use the \texttt{getDataAvailability} function. It is possible to limit the retrieval information to a subset of variables. In the following example, we limit the retrieved Choptank data to only daily mean parameter (excluding all unit value and water quality values).
+To discover what data is available for a particular USGS site, including measured parameters, period of record, and number of samples (count), use the \texttt{getDataAvailability} function. It is possible to limit the retrieval information to a subset of types (\tttext{"}dv\tttext{"}, \tttext{"}uv\tttext{"}, or \tttext{"}qw\tttext{"}). In the following example, we limit the retrieved Choptank data to only daily data. Leaving the \tttext{"}type\tttext{"} argument blank returns all of the available data for that site.
 
 
 <<getSiteExtended, echo=TRUE>>=
 # Continuing from the previous example:
 # This pulls out just the daily data:
 
-ChoptankAvailableData <- getDataAvailability(siteNumber)
-
-ChoptankDailyData <- subset(ChoptankAvailableData,
-                            "dv" == service)
-
-# This pulls out the mean:
-ChoptankDailyData <- subset(ChoptankDailyData,
-                            "00003" == statCd)
+ChoptankDailyData <- getDataAvailability(siteNumber,
+                    type="dv")
 
 @
 
-- 
GitLab