diff --git a/R/deprecatedFunctions.R b/R/deprecatedFunctions.R index d19c35b580fa280298023c295e94642e35142cba..61167e184649112c421d2bdd683c73a72b89c717 100644 --- a/R/deprecatedFunctions.R +++ b/R/deprecatedFunctions.R @@ -9,7 +9,7 @@ getNWISSites<- function(...){ #' @export getNWISDataAvailability <- function(siteNumbers,service=c("uv","dv","qw")){ message("This function is being deprecated. Please use whatNWISdata in the future.") - whatNWISdata(siteNumber=siteNumber, service=service) + whatNWISdata(siteNumbers, service=service) } @@ -52,7 +52,7 @@ getNWISdvData<- function(siteNumber,parameterCd,startDate="",endDate="",statCd=" #' @export getNWISunitData<- function(siteNumbers,parameterCd,startDate="",endDate="", tz=""){ message("This function is being deprecated. Please use readNWISuv in the future.") - readNWISuv(siteNumber,parameterCd,startDate,endDate, tz) + readNWISuv(siteNumbers,parameterCd,startDate,endDate, tz) } #' @rdname readNWISqw