From: Benjamin Auder <benjamin.auder@somewhere>
Date: Wed, 22 Mar 2017 16:41:17 +0000 (+0100)
Subject: final fix: tz=working_tz in as.POSIXlt(...)
X-Git-Url: https://git.auder.net/variants/current/doc/css/pieces/R.css?a=commitdiff_plain;h=6deb700590d0000c4f8cce050990394f381ddecf;p=talweg.git

final fix: tz=working_tz in as.POSIXlt(...)
---

diff --git a/pkg/R/getData.R b/pkg/R/getData.R
index 9ed0217..e13cf86 100644
--- a/pkg/R/getData.R
+++ b/pkg/R/getData.R
@@ -76,7 +76,7 @@ getData = function(ts_data, exo_data, input_tz="GMT", date_format="%d/%m/%Y %H:%
 				serie = c(serie, ts_df[line,2])
 				line = line + 1
 			};
-			if (line >= nb_lines + 1 || as.POSIXlt(ts_df[line-1,1])$hour == predict_at)
+			if (line >= nb_lines + 1 || as.POSIXlt(ts_df[line-1,1],tz=working_tz)$hour == predict_at)
 				break
 		}