Commit d2c7b678 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

Merge branch '133-seriesaggreg-reorder-regime-time-series' into 'dev'

Resolve "SeriesAggreg: Reorder regime time series"

Closes #133

See merge request HYCAR-Hydro/airgr!55
Showing with 2 additions and 0 deletions
+2 -0
...@@ -184,6 +184,8 @@ SeriesAggreg.data.frame <- function(x, ...@@ -184,6 +184,8 @@ SeriesAggreg.data.frame <- function(x,
all.y = FALSE) all.y = FALSE)
tsAggreg <- tsAggreg[tsAggreg$Selec & tsAggreg$DatesRini, ] tsAggreg <- tsAggreg[tsAggreg$Selec & tsAggreg$DatesRini, ]
tsAggreg <- tsAggreg[, colnames(TabSeries0)] tsAggreg <- tsAggreg[, colnames(TabSeries0)]
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) return(tsAggreg)
} }
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment