From 6c755369ac6e78692a504baf7504810514c68aa1 Mon Sep 17 00:00:00 2001 From: Delaigue Olivier <olivier.delaigue@irstea.priv> Date: Tue, 19 Feb 2019 08:52:40 +0100 Subject: [PATCH] v1.2.3.2 NEW: add a specific hysteresis class returned by RunModel_CemaNeige #5252 --- DESCRIPTION | 2 +- NEWS.rmd | 2 +- R/RunModel_CemaNeige.R | 3 +++ 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 809fa360..90de8ae3 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.2.3.1 +Version: 1.2.3.2 Date: 2019-02-19 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), diff --git a/NEWS.rmd b/NEWS.rmd index 131209ab..ec2b077b 100644 --- a/NEWS.rmd +++ b/NEWS.rmd @@ -13,7 +13,7 @@ output: -### 1.2.3.1 Release Notes (2019-02-19) +### 1.2.3.2 Release Notes (2019-02-19) diff --git a/R/RunModel_CemaNeige.R b/R/RunModel_CemaNeige.R index 4b975dde..13e6321b 100644 --- a/R/RunModel_CemaNeige.R +++ b/R/RunModel_CemaNeige.R @@ -159,6 +159,9 @@ RunModel_CemaNeige <- function(InputsModel, RunOptions, Param, IsHyst = FALSE) { ## End class(OutputsModel) <- c("OutputsModel", "daily", "CemaNeige") + if(IsHyst) { + class(OutputsModel) <- c(class(OutputsModel), "hysteresis") + } return(OutputsModel) } -- GitLab