Made example lines shorter.

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){  
   

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)

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){

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)