- private$.data[[length(private$.data)+1]] <- list(
- "time"=new_time, "centered_serie"=new_centered_serie, "level"=new_level,
- "exo"=new_exo, "exo_hat"=new_exo_hat)
+ if (!is.null(time) && !is.null(value))
+ {
+ L = length(private$.tv)
+ if (L == 0 || strftime( tail(private$.tv[[L]]$time,1),
+ format="%H:%M:%S", tz="GMT" ) == "00:00:00")
+ {
+ # Append a new cell
+ private$.tv[[L+1]] <- list("time"=time, "serie"=value)
+ }
+ else
+ {
+ # Complete current cell
+ private$.tv[[L]]$time = c(private$.tv[[L]]$time, time)
+ private$.tv[[L]]$serie = c(private$.tv[[L]]$serie, value)
+ }
+ }
+ if (strftime( tail(private$.tv[[length(private$.tv)]]$time,1),
+ format="%H:%M:%S", tz="GMT" ) == "00:00:00")
+ {
+ private$.level = c(private$.level,
+ mean(private$.tv[[length(private$.tv)]]$serie, na.rm=TRUE))
+ }
+ if (!is.null(level_hat))
+ private$.level_hat = c(private$.level_hat, level_hat)
+ if (!is.null(exo))
+ private$.exo[[length(private$.exo)+1]] = exo
+ if (!is.null(exo_hat))
+ private$.exo_hat[[length(private$.exo_hat)+1]] = exo_hat