fixed casing.

NAMESPACE

@@ -19,7 +19,7 @@ export(readNWISunit)
 export(readWQPdata)
 export(readWQPqw)
 export(renameColumns)
-export(whatNWISData)
+export(whatNWISdata)
 export(whatNWISsites)
 export(whatWQPsites)
 export(zeroPad)

R/whatNWISData.r

@@ -9,11 +9,11 @@
 #' @export
 #' @import RCurl
 #' @examples
-#' availableData <- whatNWISData('05114000')
+#' availableData <- whatNWISdata('05114000')
 #' # To find just unit value ('instantaneous') data:
-#' uvData <- whatNWISData('05114000',service="uv")
-#' uvDataMulti <- whatNWISData(c('05114000','09423350'),service="uv")
-whatNWISData <- function(siteNumber,service=c("uv","dv","qw")){
+#' uvData <- whatNWISdata('05114000',service="uv")
+#' uvDataMulti <- whatNWISdata(c('05114000','09423350'),service="uv")
+whatNWISdata <- function(siteNumber,service=c("uv","dv","qw")){
   
   siteNumber <- paste(siteNumber,collapse=",")
   

man/readNWISgwl.Rd

+% Generated by roxygen2 (4.0.2): do not edit by hand
+\name{readNWISgwl}
+\alias{readNWISgwl}
+\title{Reads groundwater level measurements from NWISweb.}
+\usage{
+readNWISgwl(siteNumber, startDate, endDate)
+}
+\arguments{
+\item{siteNumber}{string USGS site number.  This is usually an 8 digit number}
+
+\item{startDate}{string starting date for data retrieval in the form YYYY-MM-DD.}
+
+\item{endDate}{string ending date for data retrieval in the form YYYY-MM-DD.}
+}
+\description{
+Reads groundwater level measurements from NWISweb.
+}
+\examples{
+siteNumber <- "434400121275801"
+data <- readNWISgwl(siteNumber, '','')
+}
+

man/whatNWISData.Rd

 % Generated by roxygen2 (4.0.2): do not edit by hand
-\name{whatNWISData}
-\alias{whatNWISData}
+\name{whatNWISdata}
+\alias{whatNWISdata}
 \title{USGS data availability}
 \usage{
-whatNWISData(siteNumber, service = c("uv", "dv", "qw"))
+whatNWISdata(siteNumber, service = c("uv", "dv", "qw"))
 }
 \arguments{
 \item{siteNumber}{string USGS site number.}
@@ -17,10 +17,10 @@ retval dataframe with all information found in the expanded site file
 Imports a table of available parameters, period of record, and count.
 }
 \examples{
-availableData <- whatNWISData('05114000')
+availableData <- whatNWISdata('05114000')
 # To find just unit value ('instantaneous') data:
-uvData <- whatNWISData('05114000',service="uv")
-uvDataMulti <- whatNWISData(c('05114000','09423350'),service="uv")
+uvData <- whatNWISdata('05114000',service="uv")
+uvDataMulti <- whatNWISdata(c('05114000','09423350'),service="uv")
 }
 \keyword{USGS}
 \keyword{data}

vignettes/dataRetrieval.Rnw

@@ -363,17 +363,17 @@ Site information is obtained from \url{http://waterservices.usgs.gov/rest/Site-T
 \FloatBarrier
 
 %------------------------------------------------------------
-\subsubsection{whatNWISData}
+\subsubsection{whatNWISdata}
 \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{whatNWISData} function. It is possible to limit the retrieval information to a subset of services (\texttt{"}dv\texttt{"}, \texttt{"}uv\texttt{"}, or \texttt{"}qw\texttt{"}). In the following example, we limit the retrieved Choptank data to only daily data. Leaving the \texttt{"}service\texttt{"} argument blank returns all of the available data for that site.
+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{whatNWISdata} function. It is possible to limit the retrieval information to a subset of services (\texttt{"}dv\texttt{"}, \texttt{"}uv\texttt{"}, or \texttt{"}qw\texttt{"}). In the following example, we limit the retrieved Choptank data to only daily data. Leaving the \texttt{"}service\texttt{"} 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:
 
-dailyDataAvailable <- whatNWISData(siteNumbers,
+dailyDataAvailable <- whatNWISdata(siteNumbers,
                     service="dv")
 
 @
@@ -778,7 +778,7 @@ library(dataRetrievaldemo)
 There are a few steps that are required in order to create a table in Microsoft\textregistered\ software (Excel, Word, PowerPoint, etc.) from an R dataframe. There are certainly a variety of good methods, one of which is detailed here. The example we will step through here will be to create a table in Microsoft Excel based on the dataframe tableData:
 
 <<label=getSiteApp, echo=TRUE>>=
-availableData <- whatNWISData(siteNumber, "dv")
+availableData <- whatNWISdata(siteNumber, "dv")
 dailyData <- availableData["00003" == availableData$statCd,]
 
 tableData <- with(dailyData,