From 5b29a0ff1ac8e2705e070522c86c8e20f508d4dc Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Mon, 13 Apr 2020 18:40:44 +0000
Subject: [PATCH] v0.2.10.0 NEW: GR2M model added in the ui file of the GUI #14

---
 DESCRIPTION       |  4 ++--
 NEWS.md           |  3 ++-
 inst/ShinyGR/ui.R | 25 ++++++++++++++++---------
 3 files changed, 20 insertions(+), 12 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 39d9a87..3a1b4fa 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: airGRteaching
 Type: Package
 Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
-Version: 0.2.9.24
-Date: 2020-03-30
+Version: 0.2.10.0
+Date: 2020-04-13
 Authors@R: c(
   person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@inrae.fr"),
   person("Laurent", "Coron", role = c("aut"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.md b/NEWS.md
index 90ce27f..42e4140 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -4,11 +4,12 @@
 
 
 
-### 0.2.9.24 Release Notes (2020-03-30)
+### 0.2.10.0 Release Notes (2020-04-13)
 
 
 #### New features
 
+- the <code>ShinyGR()</code> interface, can now run on monthly time series, using the GR2M model
 - in the <code>ShinyGR()</code> interface, there is a new tab panel that shows a summary sheets of basin if the name of the dataset contains the code station  (8 characters : 1 letter and 7 numbers) of the Banque Hydro French database (so it is available only for the dataset of this database)
 
 
diff --git a/inst/ShinyGR/ui.R b/inst/ShinyGR/ui.R
index 6138111..d9d5d24 100644
--- a/inst/ShinyGR/ui.R
+++ b/inst/ShinyGR/ui.R
@@ -50,20 +50,27 @@ navbarPage(title       = div("airGRteaching",
                                                h4("Choose a model:"),
                                                fluidRow(
                                                  column(width = 6, selectInput("HydroModel", label = "Hydrological model",
-                                                                               choices = c("GR4J", "GR5J", "GR6J"))),
+                                                                               choices = c("GR4J", "GR5J", "GR6J", "GR2M"))),
                                                  column(width = 6, selectInput("SnowModel", label = "Snow model",
                                                                                choices = c("None", "CemaNeige")))
                                                ),
                                                
                                                
                                                h4("Parameters values:"),
-                                               conditionalPanel(condition = "input.HydroModel == 'GR4J' || input.HydroModel =='GR5J' || input.HydroModel =='GR6J'",
-                                                                sliderInput("X1", label = "X1  (production store capacity)",
-                                                                            post = "  [mm]",
-                                                                            min = 0, 
-                                                                            max = 2500, 
-                                                                            step = 10, 
-                                                                            value = 1250),
+                                               sliderInput("X1", label = "X1  (production store capacity)",
+                                                           post = "  [mm]",
+                                                           min = 0, 
+                                                           max = 2500, 
+                                                           step = 10, 
+                                                           value = 1250),
+                                               conditionalPanel(condition = "input.HydroModel == 'GR2M'",
+                                                                sliderInput("X2GR2M", label = "X2  (groundwater exchange coeff.)",
+                                                                            post = "  [-]",
+                                                                            min = -5, 
+                                                                            max = +5, 
+                                                                            step = 0.05,
+                                                                            value = 0)),
+                                               conditionalPanel(condition = "input.HydroModel != 'GR2M'",
                                                                 sliderInput("X2", label = "X2  (intercatchment exchange coeff.)",
                                                                             post = "  [mm/d]",
                                                                             min = -5, 
@@ -109,7 +116,7 @@ navbarPage(title       = div("airGRteaching",
                                                                             max = 10, 
                                                                             step = 0.5, 
                                                                             value = 5)),
-                                               
+                                  
                                                h4("Automatic calibration:"),
                                                fluidRow(
                                                  column(width = 6, selectInput("TypeCrit", label = "Objective function",
-- 
GitLab