From 3d4851aaecf29fbddc770f3cf40656f5a9b333b0 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Tue, 21 Oct 2014 13:37:51 -0500
Subject: [PATCH] Moved column names def. to Daily function.
---
R/getDailyDataFromFile.r | 1 +
1 file changed, 1 insertion(+)
diff --git a/R/getDailyDataFromFile.r b/R/getDailyDataFromFile.r
index 94e0fd76..e435fc20 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)
--
GitLab