v0.2.10.30 CLEAN: unit of the X2 parameter is now removed in the downloaded...

v0.2.10.30 CLEAN: unit of the X2 parameter is now removed in the downloaded plot when GR2M is used #14

DESCRIPTION

 Package: airGRteaching
 Type: Package
 Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
-Version: 0.2.10.29
+Version: 0.2.10.30
 Date: 2020-04-29
 Authors@R: c(
   person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@inrae.fr"),

NEWS.md

@@ -4,7 +4,7 @@
 
 
 
-### 0.2.10.29 Release Notes (2020-04-29)
+### 0.2.10.30 Release Notes (2020-04-29)
 
 
 #### New features

inst/ShinyGR/server.R

@@ -966,7 +966,7 @@ shinyServer(function(input, output, session) {
       ParamTitle <- c("X1", "X2"   , "X3", "X4", "X5", "X6")[seq_len(getPrep()$TMGR$NbParam)]
       ParamUnits <- c("mm", "mm/%s", "mm", "%s",   "", "mm")
       if (input$HydroModel == "GR2M") {
-        ParamUnits[2] <- "-%s"
+        ParamUnits[2] <- "[-]%s"
       }
       ParamUnits <- ParamUnits[seq_len(getPrep()$TMGR$NbParam)]
       if (input$SnowModel == "CemaNeige") {
@@ -974,6 +974,9 @@ shinyServer(function(input, output, session) {
         ParamUnits <- c(ParamUnits,  "", "mm/°C/%s")
       }
       ParamTitle <- paste(ParamTitle, paste(getSim()$PARAM, sprintf(ParamUnits, getPrep()$TMGR$TimeUnit)), sep = " = ", collapse = ", ")
+      if (input$HydroModel == "GR2M") {
+        ParamTitle <- gsub("\\[-\\].*", "[-]", ParamTitle)
+      }
       ParamTitle <- gsub(" ,", ",", ParamTitle)
       PngTitle <- sprintf("%s - %s/%s\n%s\n%s", input$Dataset,
                           input$HydroModel, ifelse(input$SnowModel == "CemaNeige", "CemaNeige", "No snow model"),