Devtools suddently cares there's a cariage at the end of the function.

R/constructNWISURL.r

@@ -150,4 +150,4 @@ constructNWISURL <- function(siteNumber,parameterCd,startDate,endDate,service,st
     )
   
   return(url)
-}
+}
\ No newline at end of file

R/getDVData.r

@@ -29,4 +29,4 @@ getDVData <- function (siteNumber,ParameterCd,StartDate,EndDate,interactive=TRUE
   qConvert<- ifelse(convert,35.314667,1)
   localDaily <- populateDaily(data,qConvert,interactive=interactive)
   return (localDaily)
-}
+}
\ No newline at end of file

R/getDataAvailability.r

@@ -46,4 +46,4 @@ getDataAvailability <- function(siteNumber="",interactive=TRUE, longNames=FALSE)
   }
   
   return(SiteFile)
-}
+}
\ No newline at end of file

R/getMultipleParameterNames.r

@@ -29,4 +29,4 @@ getMultipleParameterNames <- function(pCodes, interactive=TRUE){
     }
   }
   return(pcodeINFO)
-}
+}
\ No newline at end of file

R/getQWData.r

@@ -22,4 +22,4 @@ getQWData <- function(siteNumber,ParameterCd,StartDate,EndDate,interactive=TRUE)
   rawSample <- getRawQWData(siteNumber,ParameterCd,StartDate,EndDate,interactive)
   retval <- processQWData(rawSample)
   return(retval)
-}
+}
\ No newline at end of file

R/getRDB1Data.r

@@ -42,4 +42,4 @@ getRDB1Data <- function(obs_url,asDateTime=FALSE){
   data[,which(regexpr('n$', dataType) > 0)] <- tempDF
   row.names(data) <- NULL
   return(data)
-}
+}
\ No newline at end of file

R/getWQPData.r

@@ -82,4 +82,4 @@ getWQPData <- function(siteNumber,characteristicName,StartDate,EndDate,interacti
   data$dateTime <- as.Date(data$dateTime)
   
   return(data)
-}
+}
\ No newline at end of file

R/getWaterML1Data.r

@@ -90,4 +90,4 @@ getWaterML1Data <- function(obs_url){
   mergedDF <- mergedDF[,reorder]
   
   return (mergedDF)
-}
+}
\ No newline at end of file

R/padVariable.r

@@ -17,4 +17,4 @@ padVariable <- function(x,padTo){
     x <- paste(leadingZeros,x,sep="")
   }
   return(x)
-}
+}
\ No newline at end of file

R/processQWData.r

@@ -42,4 +42,4 @@ processQWData <- function(data){
   data$dateTime <- format(data$dateTime, "%Y-%m-%d")
   data$dateTime <- as.Date(data$dateTime)
   return(data)
-}
+}
\ No newline at end of file

R/retrieveNWISData.r

@@ -38,4 +38,4 @@ retrieveNWISData <- function (siteNumber,ParameterCd,StartDate,EndDate,StatCd="0
   }
   
   return (data)
-}
+}
\ No newline at end of file

R/tabbedDataRetrievals.R

@@ -43,4 +43,4 @@ NULL
 #' @docType data
 #' @author Robert M. Hirsch \email{rhirsch@@usgs.gov}
 #' @keywords water flow data
-NULL
+NULL
\ No newline at end of file

man/checkStartEndDate.Rd

@@ -26,6 +26,6 @@ startDate <- '1985-01-01'
 endDate <- '1990-01-01'
 checkStartEndDate(startDate, endDate, interactive = FALSE)
 }
-\keyword{flow}
 \keyword{WRTDS}
+\keyword{flow}
 

man/compressData.Rd

@@ -36,6 +36,6 @@ value3 <- c(3,4,5)
 dataInput <- data.frame(dateTime, comment1, value1, comment2, value2, comment3, value3, stringsAsFactors=FALSE)
 compressData(dataInput, interactive=FALSE)
 }
-\keyword{flow}
 \keyword{WRTDS}
+\keyword{flow}
 

man/constructNWISURL.Rd

@@ -67,9 +67,9 @@ url_qw <- constructNWISURL(siteNumber,c('01075','00029','00453'),startDate,endDa
 url_wqp <- constructNWISURL(siteNumber,c('01075','00029','00453'),startDate,endDate,'wqp')
 url_daily_tsv <- constructNWISURL(siteNumber,pCode,startDate,endDate,'dv',statCd=c("00003","00001"),format="tsv")
 }
+\keyword{USGS}
 \keyword{data}
 \keyword{import}
 \keyword{service}
-\keyword{USGS}
 \keyword{web}
 

man/dataOverview.Rd

@@ -21,8 +21,8 @@ dataOverview(localDaily = exDaily, localSample = exSample)
 \seealso{
   \code{\link{mergeReport}}
 }
-\keyword{data}
-\keyword{import}
 \keyword{USGS}
 \keyword{WRTDS}
+\keyword{data}
+\keyword{import}
 

man/dateFormatCheck.Rd

@@ -18,6 +18,6 @@
 date <- '1985-01-01'
 dateFormatCheck(date)
 }
-\keyword{flow}
 \keyword{WRTDS}
+\keyword{flow}
 

man/formatCheckDate.Rd

@@ -27,6 +27,6 @@ Date <- '1985-01-01'
 dateString <- 'StartDate'
 formatCheckDate(Date, dateString, interactive = FALSE)
 }
-\keyword{flow}
 \keyword{WRTDS}
+\keyword{flow}
 

man/formatCheckParameterCd.Rd

@@ -23,6 +23,6 @@
 pCode <- '01234'
 formatCheckParameterCd(pCode, interactive = FALSE)
 }
-\keyword{flow}
 \keyword{WRTDS}
+\keyword{flow}
 

man/formatCheckSiteNumber.Rd

@@ -22,6 +22,6 @@
 site<- '01234567'
 formatCheckSiteNumber(site, interactive = FALSE)
 }
-\keyword{flow}
 \keyword{WRTDS}
+\keyword{flow}