Added end of line.

R/checkStartEndDate.r

@@ -34,4 +34,4 @@ checkStartEndDate <- function(StartDate, EndDate,interactive=TRUE){
     
   }  
   return(c(StartDate,EndDate))
-}
\ No newline at end of file
+}

R/compressData.r

@@ -88,4 +88,4 @@ compressData <- function(data, interactive=TRUE){
   }
   
   return(returnDataFrame)
-}
\ No newline at end of file
+}

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
+}

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
+}

R/formatCheckDate.r

@@ -27,4 +27,4 @@ formatCheckDate <- function(Date, dateString,interactive=TRUE){
     }
   }
   return(Date)
-}
\ No newline at end of file
+}

R/formatCheckParameterCd.r

@@ -39,4 +39,4 @@ formatCheckParameterCd <- function(ParameterCd, interactive=TRUE){     #checks f
     }
   }
   return(ParameterCd)
-}
\ No newline at end of file
+}

R/formatCheckSiteNumber.r

@@ -22,4 +22,4 @@ formatCheckSiteNumber <- function(siteNumber, interactive=TRUE){  #checks for a
     }
   }
   return(siteNumber)
-}
\ No newline at end of file
+}

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
+}

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
+}

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
+}

R/getParameterInfo.r

@@ -27,4 +27,4 @@ getParameterInfo <- function(parameterCd,interactive=TRUE){
   
   parameterData <- parameterCdFile[2,]
   return(parameterData)
-}
\ No newline at end of file
+}

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
+}

R/getPreLoadedData.r

@@ -28,4 +28,4 @@ getPreLoadedData <- function (rawData){
   
   retval$value <- as.numeric(retval$value)
   return (retval)
-}
\ No newline at end of file
+}

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
+}

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
+}

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
+}

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
+}

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
+}

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
+}

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
+}