Commit 949b0b60 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Fixes #525

parent db83cfa8
......@@ -4,7 +4,7 @@ dataRetrieval 2.7.6
* Adjusted Water Quality Portal (WPQ) URLs to follow new structure
* Fixed bug where some WQP results were being duplicated
* Added an argument to readWQPdata to ignore fetching site and parameter attributes.
* Fixed timezone bug in RDB requests that had mixed timezones.
dataRetrieval 2.7.5
==========
......
......@@ -133,6 +133,10 @@
#'
#' today <- readNWISdata(service="iv", startDate = Sys.Date(),
#' parameterCd = "00060", siteNumber = "05114000")
#'
#' peak_data <- readNWISdata(service = "peak",
#' site_no = c("01594440","040851325"),
#' range_selection = "data_range")
#'
#' }
readNWISdata <- function(..., asDateTime=TRUE,convertType=TRUE,tz="UTC"){
......@@ -327,7 +331,9 @@ readNWISdots <- function(...){
service <- "dv"
}
match.arg(service, c("dv","iv","iv_recent","gwlevels","site", "uv","qw","measurements","qwdata","stat","rating"))
match.arg(service, c("dv","iv","iv_recent","gwlevels",
"site", "uv","qw","measurements",
"qwdata","stat","rating", "peak"))
if(service == "uv"){
service <- "iv"
......@@ -409,7 +415,7 @@ readNWISdots <- function(...){
}
}
if(service %in% c("site","gwlevels","stat","rating")){
if(service %in% c("site", "gwlevels", "stat", "rating", "peak")){
format.default <- "rdb"
}
......
......@@ -142,6 +142,10 @@ all_sites_24hrs <- readNWISdata(service = "rating", file_type="exsa", period = 2
today <- readNWISdata(service="iv", startDate = Sys.Date(),
parameterCd = "00060", siteNumber = "05114000")
peak_data <- readNWISdata(service = "peak",
site_no = c("01594440","040851325"),
range_selection = "data_range")
}
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment