From f77589f69cadc0c088632534bb33e12edef9798e Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Thu, 11 Sep 2014 10:24:34 -0500
Subject: [PATCH] Made example lines shorter.
---
R/compressData.r | 4 +++-
R/constructNWISURL.r | 12 ++++++++----
R/formatCheckSiteNumber.r | 2 --
R/renameColumns.R | 3 ++-
4 files changed, 13 insertions(+), 8 deletions(-)
diff --git a/R/compressData.r b/R/compressData.r
index 57cf0bf5..8f944da5 100644
--- a/R/compressData.r
+++ b/R/compressData.r
@@ -19,7 +19,9 @@
#' value2 <- c(2,3,4)
#' comment3 <- c("","","<")
#' value3 <- c(3,4,5)
-#' dataInput <- data.frame(dateTime, comment1, value1, comment2, value2, comment3, value3, stringsAsFactors=FALSE)
+#' dataInput <- data.frame(dateTime, comment1, value1,
+#' comment2, value2,
+#' comment3, value3, stringsAsFactors=FALSE)
#' compressData(dataInput)
compressData <- function(data, interactive=TRUE){
diff --git a/R/constructNWISURL.r b/R/constructNWISURL.r
index 88083fdd..d638f8d5 100644
--- a/R/constructNWISURL.r
+++ b/R/constructNWISURL.r
@@ -23,12 +23,16 @@
#' startDate <- '1985-01-01'
#' endDate <- ''
#' pCode <- c("00060","00010")
-#' url_daily <- constructNWISURL(siteNumber,pCode,startDate,endDate,'dv',statCd=c("00003","00001"))
+#' url_daily <- constructNWISURL(siteNumber,pCode,
+#' startDate,endDate,'dv',statCd=c("00003","00001"))
#' url_unit <- constructNWISURL(siteNumber,pCode,"2012-06-28","2012-06-30",'iv')
#' url_qw_single <- constructNWISURL(siteNumber,"01075",startDate,endDate,'qw')
-#' url_qw <- constructNWISURL(siteNumber,c('01075','00029','00453'),startDate,endDate,'qw')
-#' url_wqp <- constructNWISURL(paste("USGS",siteNumber,sep="-"),c('01075','00029','00453'),startDate,endDate,'wqp')
-#' url_daily_tsv <- constructNWISURL(siteNumber,pCode,startDate,endDate,'dv',statCd=c("00003","00001"),format="tsv")
+#' url_qw <- constructNWISURL(siteNumber,c('01075','00029','00453'),
+#' startDate,endDate,'qw')
+#' url_wqp <- constructNWISURL(paste("USGS",siteNumber,sep="-"),c('01075','00029','00453'),
+#' startDate,endDate,'wqp')
+#' url_daily_tsv <- constructNWISURL(siteNumber,pCode,startDate,endDate,'dv',
+#' statCd=c("00003","00001"),format="tsv")
constructNWISURL <- function(siteNumber,parameterCd,startDate,endDate,service,statCd="00003", format="xml",expanded=FALSE,interactive=TRUE){
startDate <- formatCheckDate(startDate, "StartDate", interactive=interactive)
diff --git a/R/formatCheckSiteNumber.r b/R/formatCheckSiteNumber.r
index c277b045..d673a4be 100644
--- a/R/formatCheckSiteNumber.r
+++ b/R/formatCheckSiteNumber.r
@@ -9,8 +9,6 @@
#' @examples
#' site<- '01234567'
#' formatCheckSiteNumber(site)
-#' site_incorrect <- '1234567'
-#' formatCheckSiteNumber(site_incorrect)
formatCheckSiteNumber <- function(siteNumber, interactive=TRUE){ #checks for a 8 digit number
if (nchar(siteNumber) < 8){
if (interactive){
diff --git a/R/renameColumns.R b/R/renameColumns.R
index 1a977496..e1a4cf7f 100644
--- a/R/renameColumns.R
+++ b/R/renameColumns.R
@@ -9,7 +9,8 @@
#' @examples
#' # This example requires an internet connection to run
#' siteNumber <- '05114000'
-#' rawData <- retrieveNWISdvData(siteNumber,c("00010","00060","00300"),"2001-01-01","2002-01-01",statCd=c("00001","00003"))
+#' rawData <- retrieveNWISdvData(siteNumber,c("00010","00060","00300"),
+#' "2001-01-01","2002-01-01",statCd=c("00001","00003"))
#' rawData <- renameColumns(rawData)
#' today <- as.character(Sys.Date())
#' rawData2 <- retrieveNWISunitData(siteNumber,c("00010","00060"),today,today)
--
GitLab