Skip to content
Snippets Groups Projects
Commit adf56b53 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Updating names.

parent af7ab104
No related branches found
No related tags found
1 merge request!39Overhaul of function names. Move some functionality to EGRET.
This diff is collapsed.
File deleted
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getRDB1Data} \name{importRDB1}
\alias{getRDB1Data} \alias{importRDB1}
\title{Function to return data from the NWIS RDB 1.0 format} \title{Function to return data from the NWIS RDB 1.0 format}
\usage{ \usage{
getRDB1Data(obs_url, asDateTime = FALSE, qw = FALSE) importRDB1(obs_url, asDateTime = FALSE, qw = FALSE)
} }
\arguments{ \arguments{
\item{obs_url}{string containing the url for the retrieval} \item{obs_url}{string containing the url for the retrieval}
...@@ -27,12 +27,12 @@ offering <- "00003" ...@@ -27,12 +27,12 @@ offering <- "00003"
property <- "00060" property <- "00060"
obs_url <- constructNWISURL(siteNumber,property, obs_url <- constructNWISURL(siteNumber,property,
startDate,endDate,"dv",format="tsv") startDate,endDate,"dv",format="tsv")
data <- getRDB1Data(obs_url) data <- importRDB1(obs_url)
urlMulti <- constructNWISURL("04085427",c("00060","00010"), urlMulti <- constructNWISURL("04085427",c("00060","00010"),
startDate,endDate,"dv",statCd=c("00003","00001"),"tsv") startDate,endDate,"dv",statCd=c("00003","00001"),"tsv")
multiData <- getRDB1Data(urlMulti) multiData <- importRDB1(urlMulti)
unitDataURL <- constructNWISURL(siteNumber,property, unitDataURL <- constructNWISURL(siteNumber,property,
"2014-10-10","2014-10-10","uv",format="tsv") "2014-10-10","2014-10-10","uv",format="tsv")
unitData <- getRDB1Data(unitDataURL, asDateTime=TRUE) unitData <- importRDB1(unitDataURL, asDateTime=TRUE)
} }
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{parseWQPData} \name{importWQP}
\alias{parseWQPData} \alias{importWQP}
\title{Basic Water Quality Portal Data grabber} \title{Basic Water Quality Portal Data grabber}
\usage{ \usage{
parseWQPData(url) importWQP(url)
} }
\arguments{ \arguments{
\item{url}{string URL to Water Quality Portal#'} \item{url}{string URL to Water Quality Portal#'}
...@@ -20,7 +20,7 @@ Imports data from the Water Quality Portal based on a specified url. ...@@ -20,7 +20,7 @@ Imports data from the Water Quality Portal based on a specified url.
## Examples take longer than 5 seconds: ## Examples take longer than 5 seconds:
rawSampleURL <- constructWQPURL('USGS-01594440','01075', '1985-01-01', '1985-03-31') rawSampleURL <- constructWQPURL('USGS-01594440','01075', '1985-01-01', '1985-03-31')
rawSample <- parseWQPData(rawSampleURL) rawSample <- importWQP(rawSampleURL)
} }
\keyword{USGS} \keyword{USGS}
\keyword{data} \keyword{data}
......
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getWaterML1Data} \name{importWaterML1}
\alias{getWaterML1Data} \alias{importWaterML1}
\title{Function to return data from the NWISWeb WaterML1.1 service} \title{Function to return data from the NWISWeb WaterML1.1 service}
\usage{ \usage{
getWaterML1Data(obs_url) importWaterML1(obs_url)
} }
\arguments{ \arguments{
\item{obs_url}{string containing the url for the retrieval} \item{obs_url}{string containing the url for the retrieval}
...@@ -23,18 +23,18 @@ offering <- '00003' ...@@ -23,18 +23,18 @@ offering <- '00003'
property <- '00060' property <- '00060'
urlBase <- "http://waterservices.usgs.gov/nwis" urlBase <- "http://waterservices.usgs.gov/nwis"
obs_url <- constructNWISURL(siteNumber,property,startDate,endDate,'dv') obs_url <- constructNWISURL(siteNumber,property,startDate,endDate,'dv')
data <- getWaterML1Data(obs_url) data <- importWaterML1(obs_url)
urlMulti <- constructNWISURL("04085427",c("00060","00010"), urlMulti <- constructNWISURL("04085427",c("00060","00010"),
startDate,endDate,'dv',statCd=c("00003","00001")) startDate,endDate,'dv',statCd=c("00003","00001"))
multiData <- getWaterML1Data(urlMulti) multiData <- importWaterML1(urlMulti)
groundWaterSite <- "431049071324301" groundWaterSite <- "431049071324301"
startGW <- "2013-10-01" startGW <- "2013-10-01"
endGW <- "2014-06-30" endGW <- "2014-06-30"
groundwaterExampleURL <- constructNWISURL(groundWaterSite, NA, groundwaterExampleURL <- constructNWISURL(groundWaterSite, NA,
startGW,endGW, service="gwlevels", format="xml") startGW,endGW, service="gwlevels", format="xml")
groundWater <- getWaterML1Data(groundwaterExampleURL) groundWater <- importWaterML1(groundwaterExampleURL)
unitDataURL <- constructNWISURL(siteNumber,property, unitDataURL <- constructNWISURL(siteNumber,property,
"2014-10-10","2014-10-10",'uv',format='xml') "2014-10-10","2014-10-10",'uv',format='xml')
unitData <- getWaterML1Data(unitDataURL) unitData <- importWaterML1(unitDataURL)
} }
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getWaterML2Data} \name{importWaterML2}
\alias{getWaterML2Data} \alias{importWaterML2}
\title{Function to return data from the WaterML2 data} \title{Function to return data from the WaterML2 data}
\usage{ \usage{
getWaterML2Data(obs_url) importWaterML2(obs_url)
} }
\arguments{ \arguments{
\item{obs_url}{string containing the url for the retrieval} \item{obs_url}{string containing the url for the retrieval}
...@@ -21,6 +21,6 @@ URL <- paste(baseURL, "sites=01646500", ...@@ -21,6 +21,6 @@ URL <- paste(baseURL, "sites=01646500",
"endDT=2014-09-08", "endDT=2014-09-08",
"statCd=00003", "statCd=00003",
"parameterCd=00060",sep="&") "parameterCd=00060",sep="&")
\dontrun{dataReturned3 <- getWaterML2Data(URL)} \dontrun{dataReturned3 <- importWaterML2(URL)}
} }
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getNWISData} \name{readNWISdata}
\alias{getNWISData} \alias{readNWISdata}
\title{General Data Import from NWIS} \title{General Data Import from NWIS}
\usage{ \usage{
getNWISData(service = "dv", ...) readNWISdata(service = "dv", ...)
} }
\arguments{ \arguments{
\item{service}{string. Possible values are "iv" (for instantaneous), "dv" (for daily values), "gwlevels" \item{service}{string. Possible values are "iv" (for instantaneous), "dv" (for daily values), "gwlevels"
...@@ -19,8 +19,8 @@ Returns data from the NWIS web service. ...@@ -19,8 +19,8 @@ Returns data from the NWIS web service.
Arguments to the function should be based on \url{http://waterservices.usgs.gov} service calls. Arguments to the function should be based on \url{http://waterservices.usgs.gov} service calls.
} }
\examples{ \examples{
dataTemp <- getNWISData(stateCd="OH",parameterCd="00010") dataTemp <- readNWISdata(stateCd="OH",parameterCd="00010")
dataTempUnit <- getNWISData(sites="03086500", service="iv", parameterCd="00010") dataTempUnit <- readNWISdata(sites="03086500", service="iv", parameterCd="00010")
} }
\keyword{NWIS} \keyword{NWIS}
\keyword{data} \keyword{data}
......
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getNWISdvData} \name{readNWISdv}
\alias{getNWISdvData} \alias{readNWISdv}
\title{Raw Data Import for USGS NWIS Data} \title{Raw Data Import for USGS NWIS Data}
\usage{ \usage{
getNWISdvData(siteNumber, parameterCd, startDate, endDate, statCd = "00003", readNWISdv(siteNumber, parameterCd, startDate, endDate, statCd = "00003",
format = "tsv") format = "tsv")
} }
\arguments{ \arguments{
...@@ -30,19 +30,18 @@ A list of parameter codes can be found here: \url{http://help.waterdata.usgs.gov ...@@ -30,19 +30,18 @@ A list of parameter codes can be found here: \url{http://help.waterdata.usgs.gov
A list of statistic codes can be found here: \url{http://help.waterdata.usgs.gov/code/stat_code_query?fmt=html} A list of statistic codes can be found here: \url{http://help.waterdata.usgs.gov/code/stat_code_query?fmt=html}
} }
\examples{ \examples{
# These examples require an internet connection to run
siteNumber <- '04085427' siteNumber <- '04085427'
startDate <- '2012-01-01' startDate <- '2012-01-01'
endDate <- '2012-06-30' endDate <- '2012-06-30'
pCode <- '00060' pCode <- '00060'
rawDailyQ <- getNWISdvData(siteNumber,pCode, startDate, endDate) rawDailyQ <- readNWISdv(siteNumber,pCode, startDate, endDate)
rawDailyTemperature <- getNWISdvData(siteNumber,'00010', rawDailyTemperature <- readNWISdv(siteNumber,'00010',
startDate, endDate, statCd='00001') startDate, endDate, statCd='00001')
rawDailyTemperatureTSV <- getNWISdvData(siteNumber,'00010', rawDailyTemperatureTSV <- readNWISdv(siteNumber,'00010',
startDate, endDate, statCd='00001',format='tsv') startDate, endDate, statCd='00001',format='tsv')
rawDailyQAndTempMeanMax <- getNWISdvData(siteNumber,c('00010','00060'), rawDailyQAndTempMeanMax <- readNWISdv(siteNumber,c('00010','00060'),
startDate, endDate, statCd=c('00001','00003')) startDate, endDate, statCd=c('00001','00003'))
rawDailyMultiSites<- getNWISdvData(c("01491000","01645000"),c('00010','00060'), rawDailyMultiSites<- readNWISdv(c("01491000","01645000"),c('00010','00060'),
startDate, endDate, statCd=c('00001','00003')) startDate, endDate, statCd=c('00001','00003'))
} }
\keyword{USGS} \keyword{USGS}
......
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getNWISPcodeInfo} \name{readNWISpCode}
\alias{getNWISPcodeInfo} \alias{readNWISpCode}
\title{USGS Parameter Data Retrieval} \title{USGS Parameter Data Retrieval}
\usage{ \usage{
getNWISPcodeInfo(parameterCd) readNWISpCode(parameterCd)
} }
\arguments{ \arguments{
\item{parameterCd}{vector of USGS parameter codes. This is usually an 5 digit number.} \item{parameterCd}{vector of USGS parameter codes. This is usually an 5 digit number.}
...@@ -17,7 +17,7 @@ This function gets the data from here: \url{http://nwis.waterdata.usgs.gov/nwis/ ...@@ -17,7 +17,7 @@ This function gets the data from here: \url{http://nwis.waterdata.usgs.gov/nwis/
} }
\examples{ \examples{
# These examples require an internet connection to run # These examples require an internet connection to run
paramINFO <- getNWISPcodeInfo(c('01075','00060','00931')) paramINFO <- readNWISpCode(c('01075','00060','00931'))
} }
\keyword{USGS} \keyword{USGS}
\keyword{data} \keyword{data}
......
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getNWISqwData} \name{readNWISqw}
\alias{getNWISqwData} \alias{readNWISqw}
\title{Raw Data Import for USGS NWIS QW Data} \title{Raw Data Import for USGS NWIS QW Data}
\usage{ \usage{
getNWISqwData(siteNumber, pCodes, startDate, endDate, expanded = FALSE) readNWISqw(siteNumber, pCodes, startDate, endDate, expanded = FALSE)
} }
\arguments{ \arguments{
\item{siteNumber}{string or vector of of USGS site numbers. This is usually an 8 digit number} \item{siteNumber}{string or vector of of USGS site numbers. This is usually an 8 digit number}
...@@ -27,17 +27,16 @@ A list of parameter codes can be found here: \url{http://nwis.waterdata.usgs.gov ...@@ -27,17 +27,16 @@ A list of parameter codes can be found here: \url{http://nwis.waterdata.usgs.gov
A list of statistic codes can be found here: \url{http://nwis.waterdata.usgs.gov/nwis/help/?read_file=stat&format=table} A list of statistic codes can be found here: \url{http://nwis.waterdata.usgs.gov/nwis/help/?read_file=stat&format=table}
} }
\examples{ \examples{
# These examples require an internet connection to run
siteNumber <- c('04024430','04024000') siteNumber <- c('04024430','04024000')
startDate <- '2010-01-01' startDate <- '2010-01-01'
endDate <- '' endDate <- ''
pCodes <- c('34247','30234','32104','34220') pCodes <- c('34247','30234','32104','34220')
rawNWISqwData <- getNWISqwData(siteNumber,pCodes,startDate,endDate) rawNWISqwData <- readNWISqw(siteNumber,pCodes,startDate,endDate)
rawNWISqwDataExpand <- getNWISqwData(siteNumber,pCodes,startDate,endDate,expanded=TRUE) rawNWISqwDataExpand <- readNWISqw(siteNumber,pCodes,startDate,endDate,expanded=TRUE)
} }
\seealso{ \seealso{
\code{\link{getWQPData}}, \code{\link{getWQPSites}}, \code{\link{readWQPdata}}, \code{\link{whatWQPsites}},
\code{\link{getWQPqwData}}, \code{\link{constructNWISURL}} \code{\link{readWQPqw}}, \code{\link{constructNWISURL}}
} }
\keyword{USGS} \keyword{USGS}
\keyword{data} \keyword{data}
......
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getNWISSiteInfo} \name{readNWISsite}
\alias{getNWISSiteInfo} \alias{readNWISsite}
\title{USGS Site File Data Retrieval} \title{USGS Site File Data Retrieval}
\usage{ \usage{
getNWISSiteInfo(siteNumber) readNWISsite(siteNumber)
} }
\arguments{ \arguments{
\item{siteNumber}{string USGS site number. This is usually an 8 digit number} \item{siteNumber}{string USGS site number. This is usually an 8 digit number}
...@@ -16,8 +16,8 @@ Imports data from USGS site file site. This function gets data from here: \url{h ...@@ -16,8 +16,8 @@ Imports data from USGS site file site. This function gets data from here: \url{h
} }
\examples{ \examples{
# These examples require an internet connection to run # These examples require an internet connection to run
siteINFO <- getNWISSiteInfo('05114000') siteINFO <- readNWISsite('05114000')
siteINFOMulti <- getNWISSiteInfo(c('05114000','09423350')) siteINFOMulti <- readNWISsite(c('05114000','09423350'))
} }
\keyword{USGS} \keyword{USGS}
\keyword{data} \keyword{data}
......
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getNWISunitData} \name{readNWISunit}
\alias{getNWISunitData} \alias{readNWISunit}
\title{Raw Data Import for Instantaneous USGS NWIS Data} \title{Raw Data Import for Instantaneous USGS NWIS Data}
\usage{ \usage{
getNWISunitData(siteNumber, parameterCd, startDate, endDate, format = "xml") readNWISunit(siteNumber, parameterCd, startDate, endDate, format = "xml")
} }
\arguments{ \arguments{
\item{siteNumber}{string USGS site number. This is usually an 8 digit number} \item{siteNumber}{string USGS site number. This is usually an 8 digit number}
...@@ -32,9 +32,9 @@ parameterCd <- '00060' ...@@ -32,9 +32,9 @@ parameterCd <- '00060'
startDate <- "2014-10-10" startDate <- "2014-10-10"
endDate <- "2014-10-10" endDate <- "2014-10-10"
# These examples require an internet connection to run # These examples require an internet connection to run
rawData <- getNWISunitData(siteNumber,parameterCd,startDate,endDate) rawData <- readNWISunit(siteNumber,parameterCd,startDate,endDate)
summary(rawData) summary(rawData)
rawData2 <- getNWISunitData(siteNumber,parameterCd,startDate,endDate,"tsv") rawData2 <- readNWISunit(siteNumber,parameterCd,startDate,endDate,"tsv")
summary(rawData2) summary(rawData2)
} }
\keyword{USGS} \keyword{USGS}
......
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getWQPData} \name{readWQPdata}
\alias{getWQPData} \alias{readWQPdata}
\title{General Data Import from Water Quality Portal} \title{General Data Import from Water Quality Portal}
\usage{ \usage{
getWQPData(...) readWQPdata(...)
} }
\arguments{ \arguments{
\item{\dots}{see \url{www.waterqualitydata.us/webservices_documentation.jsp} for a complete list of options} \item{\dots}{see \url{www.waterqualitydata.us/webservices_documentation.jsp} for a complete list of options}
...@@ -19,7 +19,7 @@ because it allows for other agencies rather than the USGS. ...@@ -19,7 +19,7 @@ because it allows for other agencies rather than the USGS.
\examples{ \examples{
\dontrun{ \dontrun{
nameToUse <- "pH" nameToUse <- "pH"
pHData <- getWQPData(siteid="USGS-04024315",characteristicName=nameToUse) pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse)
} }
} }
\keyword{WQP} \keyword{WQP}
......
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getWQPqwData} \name{readWQPqw}
\alias{getWQPqwData} \alias{readWQPqw}
\title{Raw Data Import for Water Quality Portal} \title{Raw Data Import for Water Quality Portal}
\usage{ \usage{
getWQPqwData(siteNumber, parameterCd, startDate, endDate) readWQPqw(siteNumber, parameterCd, startDate, endDate)
} }
\arguments{ \arguments{
\item{siteNumber}{string site number. This needs to include the full agency code prefix.} \item{siteNumber}{string site number. This needs to include the full agency code prefix.}
...@@ -28,15 +28,12 @@ either USGS, or other Water Quality Portal offered sites. It is required to use ...@@ -28,15 +28,12 @@ either USGS, or other Water Quality Portal offered sites. It is required to use
site name, such as 'USGS-01234567'. site name, such as 'USGS-01234567'.
} }
\examples{ \examples{
# These examples require an internet connection to run rawPcode <- readWQPqw('USGS-01594440','01075', '1985-01-01', '1985-03-31')
\dontrun{ rawCharacteristicName <- readWQPqw('WIDNR_WQX-10032762','Specific conductance', '', '')
rawPcode <- getWQPqwData('USGS-01594440','01075', '1985-01-01', '1985-03-31')
rawCharacteristicName <- getWQPqwData('WIDNR_WQX-10032762','Specific conductance', '', '')
}
} }
\seealso{ \seealso{
\code{\link{getWQPData}}, \code{\link{getWQPSites}}, \code{\link{readWQPdata}}, \code{\link{whatWQPsites}},
\code{\link{getNWISqwData}}, and \code{\link{parseWQPData}} \code{\link{readNWISqw}}, and \code{\link{importWQP}}
} }
\keyword{USGS} \keyword{USGS}
\keyword{data} \keyword{data}
......
...@@ -17,11 +17,11 @@ Rename columns coming back from NWIS data retrievals ...@@ -17,11 +17,11 @@ Rename columns coming back from NWIS data retrievals
\examples{ \examples{
# This example requires an internet connection to run # This example requires an internet connection to run
siteNumber <- '05114000' siteNumber <- '05114000'
rawData <- getNWISdvData(siteNumber,c("00010","00060","00300"), rawData <- readNWISdv(siteNumber,c("00010","00060","00300"),
"2001-01-01","2002-01-01",statCd=c("00001","00003")) "2001-01-01","2002-01-01",statCd=c("00001","00003"))
rawData <- renameColumns(rawData) rawData <- renameColumns(rawData)
date <- "2014-10-10" date <- "2014-10-10"
rawData2 <- getNWISunitData(siteNumber,c("00010","00060"),date,date) rawData2 <- readNWISunit(siteNumber,c("00010","00060"),date,date)
rawData2 <- renameColumns(rawData2) rawData2 <- renameColumns(rawData2)
head(rawData2) head(rawData2)
} }
......
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getNWISDataAvailability} \name{whatNWISData}
\alias{getNWISDataAvailability} \alias{whatNWISData}
\title{USGS data availability} \title{USGS data availability}
\usage{ \usage{
getNWISDataAvailability(siteNumber, type = c("uv", "dv", "qw")) whatNWISData(siteNumber, type = c("uv", "dv", "qw"))
} }
\arguments{ \arguments{
\item{siteNumber}{string USGS site number.} \item{siteNumber}{string USGS site number.}
...@@ -17,11 +17,10 @@ retval dataframe with all information found in the expanded site file ...@@ -17,11 +17,10 @@ retval dataframe with all information found in the expanded site file
Imports a table of available parameters, period of record, and count. Imports a table of available parameters, period of record, and count.
} }
\examples{ \examples{
# These examples require an internet connection to run availableData <- whatNWISData('05114000')
availableData <- getNWISDataAvailability('05114000')
# To find just unit value ('instantaneous') data: # To find just unit value ('instantaneous') data:
uvData <- getNWISDataAvailability('05114000',type="uv") uvData <- whatNWISData('05114000',type="uv")
uvDataMulti <- getNWISDataAvailability(c('05114000','09423350'),type="uv") uvDataMulti <- whatNWISData(c('05114000','09423350'),type="uv")
} }
\keyword{USGS} \keyword{USGS}
\keyword{data} \keyword{data}
......
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getNWISSites} \name{whatNWISsites}
\alias{getNWISSites} \alias{whatNWISsites}
\title{Site Data Import from NWIS} \title{Site Data Import from NWIS}
\usage{ \usage{
getNWISSites(...) whatNWISsites(...)
} }
\arguments{ \arguments{
\item{\dots}{see \url{http://waterservices.usgs.gov/rest/Site-Service.html#Service} for a complete list of options} \item{\dots}{see \url{http://waterservices.usgs.gov/rest/Site-Service.html#Service} for a complete list of options}
...@@ -17,7 +17,7 @@ Arguments to the function should be based on \url{http://waterservices.usgs.gov/ ...@@ -17,7 +17,7 @@ Arguments to the function should be based on \url{http://waterservices.usgs.gov/
Mapper format is used Mapper format is used
} }
\examples{ \examples{
siteListPhos <- getNWISSites(stateCd="OH",parameterCd="00665") siteListPhos <- whatNWISsites(stateCd="OH",parameterCd="00665")
} }
\keyword{NWIS} \keyword{NWIS}
\keyword{data} \keyword{data}
......
% Generated by roxygen2 (4.0.2): do not edit by hand % Generated by roxygen2 (4.0.2): do not edit by hand
\name{getWQPSites} \name{whatWQPsites}
\alias{getWQPSites} \alias{whatWQPsites}
\title{Site Data Import from Water Quality Portal} \title{Site Data Import from Water Quality Portal}
\usage{ \usage{
getWQPSites(...) whatWQPsites(...)
} }
\arguments{ \arguments{
\item{\dots}{see \url{www.waterqualitydata.us/webservices_documentation.jsp} for a complete list of options} \item{\dots}{see \url{www.waterqualitydata.us/webservices_documentation.jsp} for a complete list of options}
...@@ -17,10 +17,10 @@ Returns a list of sites from the Water Quality Portal web service. This function ...@@ -17,10 +17,10 @@ Returns a list of sites from the Water Quality Portal web service. This function
Arguments to the function should be based on \url{www.waterqualitydata.us/webservices_documentation.jsp} Arguments to the function should be based on \url{www.waterqualitydata.us/webservices_documentation.jsp}
} }
\examples{ \examples{
site1 <- whatWQPsites(siteid="USGS-01594440")
\dontrun{ \dontrun{
site1 <- getWQPSites(siteid="USGS-01594440")
type <- "Stream" type <- "Stream"
sites <- getWQPSites(statecode="US:55",countycode="US:55:025",siteType=type) sites <- whatWQPsites(statecode="US:55",countycode="US:55:025",siteType=type)
} }
} }
\keyword{WQP} \keyword{WQP}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment