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