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

Shortened help lines.

parent c319913e
No related branches found
No related tags found
1 merge request!9Added a lot of error handling.
Hide whitespace changes
Inline Side-by-side
Showing
with 6 additions and 3 deletions
R/retrieveNWISData.r
+ 6
− 3
View file @ 3f6f047f
...@@ -23,9 +23,12 @@ ...@@ -23,9 +23,12 @@
#' endDate <- '2012-06-30' #' endDate <- '2012-06-30'
#' pCode <- '00060' #' pCode <- '00060'
#' rawDailyQ <- retrieveNWISdvData(siteNumber,pCode, startDate, endDate) #' rawDailyQ <- retrieveNWISdvData(siteNumber,pCode, startDate, endDate)
#' rawDailyTemperature <- retrieveNWISdvData(siteNumber,'00010', startDate, endDate, statCd='00001') #' rawDailyTemperature <- retrieveNWISdvData(siteNumber,'00010',
#' rawDailyTemperatureTSV <- retrieveNWISdvData(siteNumber,'00010', startDate, endDate, statCd='00001',format='tsv') #' startDate, endDate, statCd='00001')
#' rawDailyQAndTempMeanMax <- retrieveNWISdvData(siteNumber,c('00010','00060'), startDate, endDate, statCd=c('00001','00003')) #' rawDailyTemperatureTSV <- retrieveNWISdvData(siteNumber,'00010',
#' startDate, endDate, statCd='00001',format='tsv')
#' rawDailyQAndTempMeanMax <- retrieveNWISdvData(siteNumber,c('00010','00060'),
#' startDate, endDate, statCd=c('00001','00003'))
retrieveNWISdvData <- function (siteNumber,parameterCd,startDate,endDate,statCd="00003",format="tsv",interactive=TRUE){ retrieveNWISdvData <- function (siteNumber,parameterCd,startDate,endDate,statCd="00003",format="tsv",interactive=TRUE){
url <- constructNWISURL(siteNumber,parameterCd,startDate,endDate,"dv",statCd=statCd,format=format,interactive=interactive) url <- constructNWISURL(siteNumber,parameterCd,startDate,endDate,"dv",statCd=statCd,format=format,interactive=interactive)
......
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