fix: keep original colnames in the data.frame returned by SeriesAggreg.data.frame

Refs #133

R/SeriesAggreg.data.frame.R

@@ -184,6 +184,7 @@ SeriesAggreg.data.frame <- function(x,
                     all.y = FALSE)
   tsAggreg <- tsAggreg[tsAggreg$Selec & tsAggreg$DatesRini, ]
   tsAggreg <- tsAggreg[, colnames(TabSeries0)]
+  colnames(tsAggreg)[1L] <- colnames(x)[1L]
   return(tsAggreg)
 
 }