From c85f90249d1023c24a0c39e625d45c1cbb2cfe68 Mon Sep 17 00:00:00 2001
From: Jordan S Read <jread@usgs.gov>
Date: Tue, 10 Nov 2015 12:04:26 -0600
Subject: [PATCH] adding Access to whatNWISData
---
R/whatNWISData.r | 3 +-
man/whatNWISdata.Rd | 85 +++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 86 insertions(+), 2 deletions(-)
create mode 100644 man/whatNWISdata.Rd
diff --git a/R/whatNWISData.r b/R/whatNWISData.r
index 2d9c18da..38bce2ca 100644
--- a/R/whatNWISData.r
+++ b/R/whatNWISData.r
@@ -87,8 +87,7 @@ whatNWISdata <- function(siteNumbers,service="all",parameterCd="all",statCd="all
}
}
-
- urlSitefile <- paste("http://waterservices.usgs.gov/nwis/site/?format=rdb&seriesCatalogOutput=true&sites=",siteNumber,sep = "")
+ urlSitefile <- paste(drURL('waterservices', '&format=rdb&seriesCatalogOutput=true&sites='),siteNumber,sep = "")
SiteFile <- importRDB1(urlSitefile, asDateTime = FALSE)
diff --git a/man/whatNWISdata.Rd b/man/whatNWISdata.Rd
new file mode 100644
index 00000000..05bb05be
--- /dev/null
+++ b/man/whatNWISdata.Rd
@@ -0,0 +1,85 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/whatNWISData.r
+\name{whatNWISdata}
+\alias{whatNWISdata}
+\title{USGS data availability}
+\usage{
+whatNWISdata(siteNumbers, service = "all", parameterCd = "all",
+ statCd = "all")
+}
+\arguments{
+\item{siteNumbers}{character USGS site number or multiple sites.}
+
+\item{service}{character. Options are "all", or one or many of "dv"(daily values),
+"uv","rt", or "iv"(unit values), "qw"(water-quality),"sv"(sites visits),"pk"(peak measurements),
+"gw"(groundwater levels), "ad" (sites included in USGS Annual Water Data Reports External Link),
+"aw" (sites monitored by the USGS Active Groundwater Level Network External Link), "id" (historical
+instantaneous values)}
+
+\item{parameterCd}{character vector of valid parameter codes to return. Defaults to "all" which will not perform a filter.}
+
+\item{statCd}{character vector of all statistic codes to return. Defaults to "all" which will not perform a filter.}
+}
+\value{
+A data frame with the following columns:
+\tabular{lll}{
+Name \tab Type \tab Description \cr
+agency_cd \tab character \tab The NWIS code for the agency reporting the data\cr
+site_no \tab character \tab The USGS site number \cr
+station_nm \tab character \tab Site name \cr
+site_tp_cd \tab character \tab Site type \cr
+dec_lat_va \tab numeric \tab Decimal latitude\cr
+dec_long_va \tab numeric \tab Decimal longitude \cr
+coord_acy_cd \tab character \tab Latitude-longitude accuracy \cr
+dec_coord_datum_cd \tab character \tab Decimal Latitude-longitude datum \cr
+alt_va \tab character \tab Altitude of Gage or land surface \cr
+alt_acy_va \tab character \tab Altitude accuracy \cr
+alt_datum_cd \tab character \tab Altitude datum \cr
+huc_cd \tab character \tab Hydrologic unit code \cr
+data_type_cd \tab character \tab Data type \cr
+parm_cd \tab character \tab Parameter code \cr
+stat_cd \tab character \tab Statistical code \cr
+dd_nu \tab character \tab Internal database key \cr
+loc_web_ds \tab character \tab Additional measurement description \cr
+medium_grp_cd \tab character \tab Medium group code \cr
+parm_grp_cd \tab character \tab Parameter group code \cr
+srs_id \tab character \tab SRS ID \cr
+access_cd \tab character \tab Access code \cr
+begin_date \tab Date \tab Begin date \cr
+end_date \tab Date \tab End date \cr
+count_nu \tab integer \tab Record count\cr
+parameter_group_nm \tab character \tab Parameter group name \cr
+parameter_nm \tab character \tab Parameter name \cr
+casrn \tab character \tab Chemical Abstracts Service (CAS) Registry Number \cr
+srsname \tab character \tab Substance Registry Services \cr
+parameter_units \tab character \tab Parameter units \cr
+}
+
+There are also several useful attributes attached to the data frame:
+\tabular{lll}{
+Name \tab Type \tab Description \cr
+url \tab character \tab The url used to generate the data \cr
+comment \tab character \tab Header comments from the RDB file \cr
+queryTime \tab POSIXct \tab The time the data was returned \cr
+}
+}
+\description{
+Imports a table of available parameters, period of record, and count. See \url{http://waterservices.usgs.gov/rest/Site-Service.html}
+for more information.
+}
+\examples{
+\dontrun{
+availableData <- whatNWISdata('05114000')
+# To find just unit value ('instantaneous') data:
+uvData <- whatNWISdata('05114000',service="uv")
+uvDataMulti <- whatNWISdata(c('05114000','09423350'),service=c("uv","dv"))
+siteNumbers <- c("01491000","01645000")
+flowAndTemp <- whatNWISdata(siteNumbers, parameterCd=c("00060","00010"))
+}
+}
+\keyword{USGS}
+\keyword{data}
+\keyword{import}
+\keyword{service}
+\keyword{web}
+
--
GitLab