Commit 17e76039 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Getting ready for CHANGE

parent a527f431
Package: dataRetrieval
Type: Package
Title: Retrieval Functions for USGS and EPA Hydrologic and Water Quality Data
Version: 2.7.9.0001
Version: 2.7.9.0002
Authors@R: c(
person("Laura", "DeCicco", role = c("aut","cre"),
email = "ldecicco@usgs.gov",
......
......@@ -139,6 +139,12 @@ readNWISdata <- function(..., asDateTime=TRUE,convertType=TRUE,tz="UTC"){
valuesList <- readNWISdots(...)
service <- valuesList$service
if(service %in% c("qw", "qwdata")){
.Deprecated(old = "readNWISdata", package = "dataRetrieval",
new = "readWQPdata",
msg = "NWIS qw web services are being retired. Please see the vignette
'Changes to NWIS QW services' for more information.")
}
values <- sapply(valuesList$values, function(x) URLencode(x))
......
......@@ -102,6 +102,10 @@
readNWISqw <- function (siteNumbers,parameterCd,startDate="",endDate="",
expanded=TRUE,reshape=FALSE,tz="UTC"){
.Deprecated(new = "readWQPqw", package = "dataRetrieval",
msg = "NWIS qw web services are being retired. Please see the vignette
'Changes to NWIS QW services' for more information.")
pgrp <- c("INF", "PHY", "INM", "INN", "NUT", "MBI", "BIO", "IMM", "IMN", "TOX",
"OPE", "OPC", "OOT", "RAD", "XXX", "SED", "POP",
"ISO", "OTH", "HAB")
......
......@@ -65,6 +65,12 @@ whatNWISdata <- function(..., convertType=TRUE){
if("service" %in% names(matchReturn)){
service <- matchReturn$service
if(service %in% c("qw", "qwdata")){
.Deprecated(old = "whatNWISdata", package = "dataRetrieval",
new = "whatWQPdata",
msg = "NWIS qw web services are being retired. Please see the vignette
'Changes to NWIS QW services' for more information.")
}
} else {
service <- "all"
}
......
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