From 4ee024adfe8178d9f1129beb343435514f81a4e6 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Thu, 15 Jul 2021 09:07:10 +0200
Subject: [PATCH] fix: keep original colnames in the data.frame returned by
SeriesAggreg.data.frame Refs #133
---
R/SeriesAggreg.data.frame.R | 1 +
1 file changed, 1 insertion(+)
diff --git a/R/SeriesAggreg.data.frame.R b/R/SeriesAggreg.data.frame.R
index 5a467039..b4d83f3d 100644
--- 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)
}
--
GitLab