From ea1fc5f0d2b5dfc339e8ac7607b5e841635a23e9 Mon Sep 17 00:00:00 2001
From: Laura DeCicco <ldecicco@usgs.gov>
Date: Mon, 17 Jun 2013 15:45:27 -0500
Subject: [PATCH] Fixed leapyear bug.
---
R/populateDateColumns.r | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/populateDateColumns.r b/R/populateDateColumns.r
index b1b548e7..99ac1d3c 100644
--- a/R/populateDateColumns.r
+++ b/R/populateDateColumns.r
@@ -20,7 +20,7 @@ populateDateColumns <- function(rawData){ # rawData is a vector of dates
leapOffset <- ifelse((year%%4 == 0) & ((year%%100 != 0) | (year%%400 == 0)), 0,1)
- DateFrame$Day[DateFrame$Day > 59] <- DateFrame$Day[DateFrame$Day > 59] + leapOffset
+ DateFrame$Day[DateFrame$Day > 59] <- DateFrame$Day[DateFrame$Day > 59] + leapOffset[DateFrame$Day > 59]
DateFrame$DecYear <- year + (DateFrame$Day -0.5)/366
DateFrame$MonthSeq <- ((year-1850)*12)+DateFrame$Month
--
GitLab