From e5da7ff1413bad43118e0d1fe08a65f6e0da8bbd Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Thu, 15 Jul 2021 09:45:37 +0200
Subject: [PATCH] fix: reorder SeriesAggreg.data.frame by date (especially for
regime time series) Refs #133
---
R/SeriesAggreg.data.frame.R | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/R/SeriesAggreg.data.frame.R b/R/SeriesAggreg.data.frame.R
index b4d83f3d..ea986a08 100644
--- 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)
}
--
GitLab