diff --git a/R/getDailyDataFromFile.r b/R/getDailyDataFromFile.r index 94e0fd76adddcdadb5cb68d2abdcae24843bb356..e435fc20d887af5c4d81d581da56c16fa7a3fb79 100644 --- a/R/getDailyDataFromFile.r +++ b/R/getDailyDataFromFile.r @@ -58,6 +58,7 @@ getUserDaily <- function (filePath,fileName,hasHeader=TRUE,separator=",",qUnit=1 if (interactive){ if(qUnit==1) cat("\n the input discharge are assumed to be in cubic feet per second\nif they are in cubic meters per second, then the call to getDailyDataFromFile should specify qUnit=2\n") } + names(data) <- c("dateTime", "value") localDaily <- populateDaily(data,qConvert, interactive=interactive) localDaily <- localDaily[!is.na(localDaily$Q),] return(localDaily)