v1.2.3.2 NEW: add a specific hysteresis class returned by RunModel_CemaNeige #5252

6c755369 · Delaigue Olivier · c1b9c399 · 6c755369 · 6c755369 · 6c755369
Commit 6c755369 authored 6 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 5 additions and 2 deletions
+5 -2
--- a/DESCRIPTION
+++ b/DESCRIPTION
 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")),

--- 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) 




--- 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)
 }