v1.2.3.1 CLEAN: class returned by RunModel_CemaNeigeGR4J #5252

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

Showing

with 6 additions and 3 deletions
+6 -3
--- a/DESCRIPTION
+++ b/DESCRIPTION
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.2.3.0
+Version: 1.2.3.1
 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.0 Release Notes (2019-02-19) 
+### 1.2.3.1 Release Notes (2019-02-19) 




--- a/R/RunModel_CemaNeigeGR4J.R
+++ b/R/RunModel_CemaNeigeGR4J.R
@@ -174,7 +174,10 @@ RunModel_CemaNeigeGR4J <- function(InputsModel,RunOptions,Param, IsHyst = FALSE)

    ##End
      rm(RESULTS); 
-      class(OutputsModel) <- c("OutputsModel","daily","GR","CemaNeige", if(IsHyst) "hysteresis");
+      class(OutputsModel) <- c("OutputsModel","daily","GR","CemaNeige");
+      if(IsHyst) {
+        class(OutputsModel) <- c(class(OutputsModel), "hysteresis")
+      }
      return(OutputsModel);

 }