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

[talweg.git] / pkg / R / getData.R

diff --git a/pkg/R/getData.R b/pkg/R/getData.R
index 9ed0217..e13cf86 100644 (file)
--- 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
                }