diff --git a/DESCRIPTION b/DESCRIPTION
index 5d7afda920e67de11cfad23eed5f505906ebab1e..5fe7580bdb2e49a8d78774c95a06266c71174b8e 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.4.8.4
+Version: 1.4.8.5
Date: 2020-05-04
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.md b/NEWS.md
index 32b79c5a47804a88a9cd05841fc8e04b2d803902..03fe8048998c5f3708dbda9d75b9b019468c25d5 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -4,7 +4,7 @@
-### 1.4.8.4 Release Notes (2020-05-04)
+### 1.4.8.5 Release Notes (2020-05-04)
#### New features
diff --git a/R/SeriesAggreg2.default.R b/R/SeriesAggreg2.default.R
index fb2c61efafae1b6b34e315eb39ebf92faf953cb3..a68bbc5f8ab272e37d25576fe191f490efc65b43 100644
--- a/R/SeriesAggreg2.default.R
+++ b/R/SeriesAggreg2.default.R
@@ -49,6 +49,7 @@ SeriesAggreg2.default <- function(TabSeries,
})
}
+
TabSeries2 <- TabSeries[1:which(names(TabSeries) %in% lastCol)]
TabSeries2 <- as.data.frame.list(TabSeries2)
NewTabSeries <- SeriesAggreg2(TabSeries = TabSeries2,
@@ -57,7 +58,7 @@ SeriesAggreg2.default <- function(TabSeries,
ConvertFun = .AggregConvertFun(colnames(TabSeries2)[-1L]),
YearFirstMonth = YearFirstMonth, TimeLag = TimeLag,
verbose = verbose)
- TabSeries$zzz <- NULL
+ NewTabSeries$zzz <- NULL
if (simplify) {
@@ -66,6 +67,7 @@ SeriesAggreg2.default <- function(TabSeries,
} else {
+ res <- list()
ClassFormat <- switch(substr(Format, start = nchar(Format), stop = nchar(Format)),
h = "hourly",
d = "daily",
@@ -79,7 +81,7 @@ SeriesAggreg2.default <- function(TabSeries,
if (inherits(TabSeries, "CemaNeige")) {
res$CemaNeigeLayers <- CemaNeigeLayersAggreg
}
-
+
class(res) <- gsub("hourly|daily|monthly|yearly", ClassFormat, class(TabSeries))
return(res)