diff --git a/R/checkStartEndDate.r b/R/checkStartEndDate.r
index 3bac9a68e31b5edb20ba7d21dd53f0b922eda905..2e516e0941fd5d7f87597f1a08c890b9a37dd855 100644
--- a/R/checkStartEndDate.r
+++ b/R/checkStartEndDate.r
@@ -34,4 +34,4 @@ checkStartEndDate <- function(StartDate, EndDate,interactive=TRUE){
     
   }  
   return(c(StartDate,EndDate))
-}
\ No newline at end of file
+}
diff --git a/R/compressData.r b/R/compressData.r
index d98948c05f0c7f68958ea7fba0a2b0dfedfbfa43..2be5baef0fb17cfff68bbf07a9515d94608a0339 100644
--- a/R/compressData.r
+++ b/R/compressData.r
@@ -88,4 +88,4 @@ compressData <- function(data, interactive=TRUE){
   }
   
   return(returnDataFrame)
-}
\ No newline at end of file
+}
diff --git a/R/dataOverview.r b/R/dataOverview.r
index b1b66b3ba7c3e8c7c7d435a35d5e6a5c13b2e483..6bb3689e107ba35348cdf91b174a20800b902966 100644
--- a/R/dataOverview.r
+++ b/R/dataOverview.r
@@ -33,4 +33,4 @@ dataOverview <- function(localDaily = Daily, localSample = Sample){
   pct<-sum(localSample$Uncen)
   pct<-((numSamples-pct)/numSamples)*100
   cat("\n Percentage of the sample values that are censored is",signif(pct,digits=2),"%")
-}
\ No newline at end of file
+}
diff --git a/R/dateFormatCheck.r b/R/dateFormatCheck.r
index 93e8f4de0b51a246bed3b13479db937f7ec83d05..19b0f02f25e37358273b5d517abeb4a2dbf4370f 100644
--- a/R/dateFormatCheck.r
+++ b/R/dateFormatCheck.r
@@ -25,4 +25,4 @@ dateFormatCheck <- function(date){  # checks for the format YYYY-MM-DD
     }
   }
   return(condition)
-}
\ No newline at end of file
+}
diff --git a/R/formatCheckDate.r b/R/formatCheckDate.r
index e39531cc76a0f97713a93bbe9ca6d889e16644cd..a65d49a88d86d8935a48d3febb890eb4f85eae5c 100644
--- a/R/formatCheckDate.r
+++ b/R/formatCheckDate.r
@@ -27,4 +27,4 @@ formatCheckDate <- function(Date, dateString,interactive=TRUE){
     }
   }
   return(Date)
-}
\ No newline at end of file
+}
diff --git a/R/formatCheckParameterCd.r b/R/formatCheckParameterCd.r
index f2f5e3ceb9a6265087fc9b7fc03aed053db46eb0..46f833ec97150ab9c0a9923b20afce95efd0e10c 100644
--- a/R/formatCheckParameterCd.r
+++ b/R/formatCheckParameterCd.r
@@ -39,4 +39,4 @@ formatCheckParameterCd <- function(ParameterCd, interactive=TRUE){     #checks f
     }
   }
   return(ParameterCd)
-}
\ No newline at end of file
+}
diff --git a/R/formatCheckSiteNumber.r b/R/formatCheckSiteNumber.r
index 4f06a9640d0eb5c1445c174fd0086f99854449aa..a335797958172b117ca9bbbb1c9065d8ed787f04 100644
--- a/R/formatCheckSiteNumber.r
+++ b/R/formatCheckSiteNumber.r
@@ -22,4 +22,4 @@ formatCheckSiteNumber <- function(siteNumber, interactive=TRUE){  #checks for a
     }
   }
   return(siteNumber)
-}
\ No newline at end of file
+}
diff --git a/R/getDailyDataFromFile.r b/R/getDailyDataFromFile.r
index 2eb24e429912cbf08d89e9a3d0c55144756a3eab..83c126573df469f07f7354d81dc5c8c3c394a35c 100644
--- a/R/getDailyDataFromFile.r
+++ b/R/getDailyDataFromFile.r
@@ -27,4 +27,4 @@ getDailyDataFromFile <- function (filePath,fileName,hasHeader=TRUE,separator=","
   }
   localDaily <- populateDaily(data,qConvert, interactive=interactive)
   return(localDaily)
-}
\ No newline at end of file
+}
diff --git a/R/getDataFromFile.r b/R/getDataFromFile.r
index fe86c92d834a5d51886972228bb5454068d99133..07476c04ff0d1b4c07d4319b199bd9a5abcc5dc9 100644
--- a/R/getDataFromFile.r
+++ b/R/getDataFromFile.r
@@ -42,4 +42,4 @@ getDataFromFile <- function (filePath,fileName,hasHeader=TRUE,separator=","){
   
   retval$value <- as.numeric(retval$value)
   return (retval)
-}
\ No newline at end of file
+}
diff --git a/R/getMetaData.r b/R/getMetaData.r
index 1d5d3951137a8b2a2b3386e206b3deb6e57f1825..f18f4fc2f145b77565a8c3c26a81c4609df7220d 100644
--- a/R/getMetaData.r
+++ b/R/getMetaData.r
@@ -38,4 +38,4 @@ getMetaData <- function(siteNumber="", parameterCd="",interactive=TRUE){
   INFO <- populateParameterINFO(parameterCd, INFO, interactive=interactive)
   
   return(INFO)
-}
\ No newline at end of file
+}
diff --git a/R/getParameterInfo.r b/R/getParameterInfo.r
index 2dd762305f57567ae0b7a401ac32d4ae19611025..87b7b8d5c21ad1853b859912c667d6388450aad0 100644
--- a/R/getParameterInfo.r
+++ b/R/getParameterInfo.r
@@ -27,4 +27,4 @@ getParameterInfo <- function(parameterCd,interactive=TRUE){
   
   parameterData <- parameterCdFile[2,]
   return(parameterData)
-}
\ No newline at end of file
+}
diff --git a/R/getPreLoadedDailyData.r b/R/getPreLoadedDailyData.r
index d8d275d1944a94128bff1a142c18068e592cd126..11df232210e3ba5b2697107bba3452a4fe6b9801 100644
--- a/R/getPreLoadedDailyData.r
+++ b/R/getPreLoadedDailyData.r
@@ -19,4 +19,4 @@ getPreLoadedDailyData <- function (loadedData,qUnit=1,interactive=TRUE){
   }
   localDaily <- populateDaily(data,qConvert, interactive=interactive)
   return(localDaily)
-}
\ No newline at end of file
+}
diff --git a/R/getPreLoadedData.r b/R/getPreLoadedData.r
index 2729e97e7e24e9059482757811b7ff8cd5468d4b..3dcdbe298dc8545c91f430579be2d9fcf1a8a87e 100644
--- a/R/getPreLoadedData.r
+++ b/R/getPreLoadedData.r
@@ -28,4 +28,4 @@ getPreLoadedData <- function (rawData){
   
   retval$value <- as.numeric(retval$value)
   return (retval)
-}
\ No newline at end of file
+}
diff --git a/R/getPreLoadedSampleData.r b/R/getPreLoadedSampleData.r
index 0480682ca5d9fd6f1425c90e36977034a4a519e3..2862993ab1cbf2f6e317cb4c9535b570660b2cd9 100644
--- a/R/getPreLoadedSampleData.r
+++ b/R/getPreLoadedSampleData.r
@@ -14,4 +14,4 @@ getPreLoadedSampleData <- function (loadedData,interactive=TRUE){
   compressedData <- compressData(loadedData,interactive=interactive)
   Sample <- populateSampleColumns(compressedData)
   return(Sample)
-}
\ No newline at end of file
+}
diff --git a/R/getQWDataFromFile.r b/R/getQWDataFromFile.r
index f9fb272366a5373b70f2dd6a9972e61af88c6479..e403cbc15c29c722ff6788347add86c08d9949de 100644
--- a/R/getQWDataFromFile.r
+++ b/R/getQWDataFromFile.r
@@ -30,4 +30,4 @@ getQWDataFromFile <- function (filePath,fileName,hasHeader=TRUE,separator=","){
   
   retval <- as.data.frame(tmp, stringsAsFactors=FALSE)
   return (retval)
-}
\ No newline at end of file
+}
diff --git a/R/getRawQWData.r b/R/getRawQWData.r
index 3ab00903eda40ef48c566dd9657e81056d438b2d..4bfdb03f78950517f137da4b033ea6b2e1eed583 100644
--- a/R/getRawQWData.r
+++ b/R/getRawQWData.r
@@ -30,4 +30,4 @@ getRawQWData <- function(siteNumber,ParameterCd,StartDate,EndDate,interactive=TR
   if(actualNumReturned != numToBeReturned) warning(numToBeReturned, " sample results were expected, ", actualNumReturned, " were returned")
   
   return(retval)
-}
\ No newline at end of file
+}
diff --git a/R/getSampleData.r b/R/getSampleData.r
index a9a49273d2e6b9820db4fc9cf0561b0a50f21404..3cd6d070d3349a221ac1d8a4a4ad9790276b41e3 100644
--- a/R/getSampleData.r
+++ b/R/getSampleData.r
@@ -25,4 +25,4 @@ getSampleData <- function(siteNumber,ParameterCd,StartDate,EndDate,interactive=T
   compressedData <- compressData(data, interactive=interactive)
   Sample <- populateSampleColumns(compressedData)
   return(Sample)
-}
\ No newline at end of file
+}
diff --git a/R/getSampleDataFromFile.r b/R/getSampleDataFromFile.r
index c08e175f5484eabb0995165c00bfc8d2c0ca4530..f49ce7aab05c859fa6f17257bb9819cd85fa3b73 100644
--- a/R/getSampleDataFromFile.r
+++ b/R/getSampleDataFromFile.r
@@ -22,4 +22,4 @@ getSampleDataFromFile <- function (filePath,fileName,hasHeader=TRUE,separator=",
   compressedData <- compressData(data, interactive=interactive)
   Sample <- populateSampleColumns(compressedData)
   return(Sample)
-}
\ No newline at end of file
+}
diff --git a/R/getSiteFileData.r b/R/getSiteFileData.r
index 123533648445da97496ae81285f4d6755a5ad477..d4f67190d19d334f45b219489506e6c7164eb77c 100644
--- a/R/getSiteFileData.r
+++ b/R/getSiteFileData.r
@@ -36,4 +36,4 @@ getSiteFileData <- function(siteNumber="",interactive=TRUE){
   INFO$alt.va <- as.numeric(INFO$alt.va)
   
   return(INFO)
-}
\ No newline at end of file
+}
diff --git a/R/mergeReport.r b/R/mergeReport.r
index f8256544256be3ff08f81b0e33ee720fa4f1e57e..7db0ebd09062b2018b527cda7fb28ec31e8610b1 100644
--- a/R/mergeReport.r
+++ b/R/mergeReport.r
@@ -26,4 +26,4 @@ mergeReport<-function(localDaily = Daily, localSample = Sample, interactive=TRUE
   LogQ<-log(Q)
   newSample<-data.frame(localSample,Q,LogQ)
   return(newSample)
-}
\ No newline at end of file
+}
diff --git a/R/populateConcentrations.r b/R/populateConcentrations.r
index cf6cf249917d6e58d35e190a3e5774decccf8a21..582e1d70ba616853eb256c13ebf5578cdd84eba5 100644
--- a/R/populateConcentrations.r
+++ b/R/populateConcentrations.r
@@ -19,4 +19,4 @@ populateConcentrations <- function(rawData){  # rawData is a dataframe with valu
   concentrationColumns$Uncen <- ifelse(tempConcLow==0,0,1)  
   #Add if value = NA?
   return (concentrationColumns)  # returns ConcLow, ConcHigh, Uncen (0 if censored, 1 if uncensored)
-}
\ No newline at end of file
+}
diff --git a/R/populateDaily.r b/R/populateDaily.r
index 1e6a76fb808024fe7a57258b88733d71551b3492..c2dc6b35c4eff3b4c4d712fbd9db7be9ef9bde49 100644
--- a/R/populateDaily.r
+++ b/R/populateDaily.r
@@ -80,4 +80,4 @@ populateDaily <- function(rawData,qConvert,interactive=TRUE){  # rawData is a da
   }
   
   return (localDaily)  
-}
\ No newline at end of file
+}
diff --git a/R/populateDateColumns.r b/R/populateDateColumns.r
index 76b956c2254b885cd5a2facd15d71f20f73a3829..476dcaf83ed2081a2a8465c5b52fd398ea4410d3 100644
--- a/R/populateDateColumns.r
+++ b/R/populateDateColumns.r
@@ -21,4 +21,4 @@ populateDateColumns <- function(rawData){  # rawData is a vector of dates
   DateFrame$MonthSeq <- ((year-1850)*12)+DateFrame$Month
   return (DateFrame)
   
-}
\ No newline at end of file
+}
diff --git a/R/populateParameterINFO.r b/R/populateParameterINFO.r
index 557cacf02438ae4c9289d4b40350f612930b149d..9bb87787e3e04bcc3fb7bf26f9bfd06e2d4d4ade 100644
--- a/R/populateParameterINFO.r
+++ b/R/populateParameterINFO.r
@@ -52,4 +52,4 @@ populateParameterINFO <- function(parameterCd, localINFO=INFO, interactive=TRUE)
   } 
   
   return(localINFO)
-}
\ No newline at end of file
+}
diff --git a/R/populateSampleColumns.r b/R/populateSampleColumns.r
index 7e7cabb7a39b9544494144cfc49fa96e67da9947..38461e7169e75d75d986e7bd0142768b8ccd9a38 100644
--- a/R/populateSampleColumns.r
+++ b/R/populateSampleColumns.r
@@ -29,4 +29,4 @@ populateSampleColumns <- function(rawData){  # rawData is a dataframe with dateT
   Sample$CosDY <- cos(2*pi*Sample$DecYear)
   Sample2 <- subset(Sample, (!is.na(Sample$ConcHigh)))  # Was just ConcHigh.....
   return (Sample2)  
-}
\ No newline at end of file
+}
diff --git a/R/populateSiteINFO.r b/R/populateSiteINFO.r
index 7179310498b1a5da2927afa0f93f77417f336e3e..52c4f744756e37978556fae37be2ee9a79b4b8bd 100644
--- a/R/populateSiteINFO.r
+++ b/R/populateSiteINFO.r
@@ -112,4 +112,4 @@ populateSiteINFO <- function(INFO, siteNumber,interactive=TRUE){
     INFO$staAbbrev <- NA
   }
   return(INFO)  
-}
\ No newline at end of file
+}
diff --git a/R/removeDuplicates.r b/R/removeDuplicates.r
index 3d6e574b76c2b84f7f150d4ab7968625899d8784..ede786a68dd957fc0b2c9146654bdd150a388889 100644
--- a/R/removeDuplicates.r
+++ b/R/removeDuplicates.r
@@ -14,4 +14,4 @@ removeDuplicates <- function(localSample=Sample) {
   Sample1 <- localSample[!duplicated(localSample[c("DecYear","ConcHigh")]),]
   
   return(Sample1)
-}
\ No newline at end of file
+}
diff --git a/R/retrieveNWISqwData.r b/R/retrieveNWISqwData.r
index 27929d488f0b364e4ffb7233c72f8811f0086017..7b7010a9e5beb68df852db61bffbdc782e7df420 100644
--- a/R/retrieveNWISqwData.r
+++ b/R/retrieveNWISqwData.r
@@ -56,4 +56,4 @@ retrieveNWISqwData <- function (siteNumber,pCodes,startDate,endDate){
   data <- data[,c(ncol(data):(ncol(data)-1),(1:(ncol(data)-2)))]
   
   return (data)
-}
\ No newline at end of file
+}
diff --git a/R/retrieveUnitNWISData.r b/R/retrieveUnitNWISData.r
index 591e472f5f4fa025cc2267a05bcd6fdfd3efe196..b40b98af8782385be37af169c21dd4e1117cbae4 100644
--- a/R/retrieveUnitNWISData.r
+++ b/R/retrieveUnitNWISData.r
@@ -33,4 +33,4 @@ retrieveUnitNWISData <- function (siteNumber,ParameterCd,StartDate,EndDate,forma
   }
 
   return (data)
-}
\ No newline at end of file
+}