v0.2.10.32 UPDATE: all parameter units are now surrounded by brackets in the...

v0.2.10.32 UPDATE: all parameter units are now surrounded by brackets in the subtitle of the exported diagram plot of the GUI #14

DESCRIPTION

 Package: airGRteaching
 Type: Package
 Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
-Version: 0.2.10.31
+Version: 0.2.10.32
 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.31 Release Notes (2020-04-29)
+### 0.2.10.32 Release Notes (2020-04-29)
 
 
 #### New features

inst/ShinyGR/server.R

@@ -973,10 +973,12 @@ shinyServer(function(input, output, session) {
         ParamTitle <- c(ParamTitle, "C1", "C2")
         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)
+        ParamUnits <- gsub("\\[-\\].*", "", ParamUnits)
       }
+      ParamUnits <- sprintf("[%s]", ParamUnits)
+      ParamUnits <- gsub("\\[\\]", "[-]", ParamUnits)
+      ParamTitle <- paste(ParamTitle, paste(getSim()$PARAM, sprintf(ParamUnits, getPrep()$TMGR$TimeUnit)), sep = " = ", collapse = ", ")
       ParamTitle <- gsub(" ,", ",", ParamTitle)
       PngTitle <- sprintf("%s - %s/%s\n%s\n%s", input$Dataset,
                           input$HydroModel, ifelse(input$SnowModel == "CemaNeige", "CemaNeige", "No snow model"),