clarify data acquisition; TODO: improve doc + usage

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

diff --git a/pkg/R/Data.R b/pkg/R/Data.R
index 610c0c4..39f3837 100644 (file)
--- a/pkg/R/Data.R
+++ b/pkg/R/Data.R
@@ -57,18 +57,16 @@ Data = R6::R6Class("Data",
                getStdHorizon = function()
                        24 - as.POSIXlt( private$.data[[1]]$time[1] )$hour + 1
                ,
-               append = function(time, exo_hat)
-                       private$.data[[length(private$.data)+1]] <- list("time"=time,"exo_hat"=exo_hat)
-               ,
-               append = function(time, serie, exo)
+               append = function(time, serie, exo, exo_hat)
                {
-                       index <- length(private$.data)
                        level = mean(serie, na.rm=TRUE)
                        centered_serie = serie - level
-                       private$.data[[index]]$time <- time
-                       private$.data[[index]]$centered_serie <- centered_serie
-                       private$.data[[index]]$level <- level
-                       private$.data[[index]]$exo <- exo
+                       private$.data[[length(private$.data)+1]] <- list(
+                               "time"=time, #H-24 --> H-1
+                               "centered_serie"=centered_serie, #at 'time'
+                               "level"=level, #at 'time'
+                               "exo"=exo, #at 'time' (yersteday 0am to last midnight)
+                               "exo_hat"=exo_hat) #today 0am to next midnight
                },
                getTime = function(index)
                {