fix: reorder SeriesAggreg.data.frame by date (especially for regime time series)

Refs #133

fix: reorder SeriesAggreg.data.frame by date (especially for regime time series)
Refs #133
e5da7ff1 · Delaigue Olivier · 4ee024ad · e5da7ff1
Commit e5da7ff1 authored 3 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 1 deletion
+2 -1
--- a/R/SeriesAggreg.data.frame.R
+++ b/R/SeriesAggreg.data.frame.R
@@ -184,7 +184,8 @@ SeriesAggreg.data.frame <- function(x,
                    all.y = FALSE)
  tsAggreg <- tsAggreg[tsAggreg$Selec & tsAggreg$DatesRini, ]
  tsAggreg <- tsAggreg[, colnames(TabSeries0)]
-  colnames(tsAggreg)[1L] <- colnames(x)[1L]
+  tsAggreg <- tsAggreg[order(tsAggreg$DatesR), ] # reorder by date especially for regime time series
+  colnames(tsAggreg)[1L] <- colnames(x)[1L]      # keep original column names
  return(tsAggreg)

 }