From 3f6f047f920f5221bab426a9a239082463625679 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Thu, 11 Sep 2014 10:26:13 -0500
Subject: [PATCH] Shortened help lines.
---
R/retrieveNWISData.r | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/R/retrieveNWISData.r b/R/retrieveNWISData.r
index fe128874..1053808d 100644
--- a/R/retrieveNWISData.r
+++ b/R/retrieveNWISData.r
@@ -23,9 +23,12 @@
#' endDate <- '2012-06-30'
#' pCode <- '00060'
#' rawDailyQ <- retrieveNWISdvData(siteNumber,pCode, startDate, endDate)
-#' rawDailyTemperature <- retrieveNWISdvData(siteNumber,'00010', startDate, endDate, statCd='00001')
-#' rawDailyTemperatureTSV <- retrieveNWISdvData(siteNumber,'00010', startDate, endDate, statCd='00001',format='tsv')
-#' rawDailyQAndTempMeanMax <- retrieveNWISdvData(siteNumber,c('00010','00060'), startDate, endDate, statCd=c('00001','00003'))
+#' rawDailyTemperature <- retrieveNWISdvData(siteNumber,'00010',
+#' startDate, endDate, statCd='00001')
+#' 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){
url <- constructNWISURL(siteNumber,parameterCd,startDate,endDate,"dv",statCd=statCd,format=format,interactive=interactive)
--
GitLab