v0.2.10.100 refactor(GUI): display a space separator between thousands places in numbers in the GUI

Refs #32

DESCRIPTION

 Package: airGRteaching
 Type: Package
 Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
-Version: 0.2.10.99
+Version: 0.2.10.100
 Date: 2020-12-21
 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.99 Release Notes (2020-12-21)
+### 0.2.10.100 Release Notes (2020-12-21)
 
 
 #### New features

inst/ShinyGR/ui.R

@@ -62,60 +62,69 @@ navbarPage(title       = div("airGRteaching",
                                                            min = 0,
                                                            max = 2500,
                                                            step = 10,
-                                                           value = 1250),
+                                                           value = 1250,
+                                                           sep = " "),
                                                conditionalPanel(condition = "input.HydroModel == 'GR2M'",
                                                                 sliderInput("X2GR2M", label = "X2  (groundwater exchange coeff.)",
                                                                             post = "  [-]",
                                                                             min = +0.05,
                                                                             max = +4,
                                                                             step = 0.05,
-                                                                            value = 2)),
+                                                                            value = 2,
+                                                                            sep = " ")),
                                                conditionalPanel(condition = "input.HydroModel != 'GR2M'",
                                                                 sliderInput("X2", label = "X2  (intercatchment exchange coeff.)",
                                                                             post = "  [mm/d]",
                                                                             min = -5,
                                                                             max = +5,
                                                                             step = 0.05,
-                                                                            value = 0),
+                                                                            value = 0,
+                                                                            sep = " "),
                                                                 sliderInput("X3", label = "X3  (routing store capacity)",
                                                                             post = "  [mm]",
                                                                             min = 0,
                                                                             max = 1000,
                                                                             step = 5,
-                                                                            value = 500),
+                                                                            value = 500,
+                                                                            sep = " "),
                                                                 sliderInput("X4",  label = "X4  (unit hydrograph time constant)",
                                                                             post = "  [d]",
                                                                             min = 0.5,
                                                                             max = 10,
                                                                             step = 0.1,
-                                                                            value = 5.2)),
+                                                                            value = 5.2,
+                                                                            sep = " ")),
                                                conditionalPanel(condition = "input.HydroModel == 'GR5J' || input.HydroModel =='GR6J'",
                                                                 sliderInput("X5", label = "X5  (intercatchment exchange threshold)",
                                                                             post = "  [-]",
                                                                             min = -4,
                                                                             max = +4,
                                                                             step = 0.05,
-                                                                            value = 0)),
+                                                                            value = 0,
+                                                                            sep = " ")),
                                                conditionalPanel(condition = "input.HydroModel == 'GR6J'",
                                                                 sliderInput("X6", label = "X6  (exponential store depletion coeff.)",
                                                                             post = "  [mm]",
                                                                             min = 0,
                                                                             max = 20,
                                                                             step = 0.5,
-                                                                            value = 10)),
+                                                                            value = 10,
+                                                                            sep = " ")),
                                                conditionalPanel(condition = "input.SnowModel == 'CemaNeige'",
                                                                 sliderInput("C1", label = "C1  (weighting coeff. for snow pack thermal state)",
                                                                             post = "  [-]",
                                                                             min = 0,
                                                                             max = 1,
                                                                             step = 0.01,
-                                                                            value = 0.5),
+                                                                            value = 0.5,
+                                                                            sep = " "),
                                                                 sliderInput("C2", label = "C2 (degree-day melt coefficient)",
                                                                             post = "  [mm/°C/d]",
                                                                             min = 0,
                                                                             max = 10,
                                                                             step = 0.5,
-                                                                            value = 5)),
+                                                                            value = 5,
+                                                                            sep = " ")),
 
                                                h4("Automatic calibration:"),
                                                fluidRow(