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

Refs #133

fix: keep original colnames in the data.frame returned by SeriesAggreg.data.frame
Refs #133
4ee024ad · Delaigue Olivier · ed28715c · 4ee024ad
Commit 4ee024ad authored 3 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 1 addition and 0 deletions
+1 -0
--- a/R/SeriesAggreg.data.frame.R
+++ b/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)
 }