v0.2.9.15 UPDATE: the theme agument of the ShinyGR function now works even if...

v0.2.9.15 UPDATE: the theme agument of the ShinyGR function now works even if the user used the wrong character case

DESCRIPTION

 Package: airGRteaching
 Type: Package
 Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
-Version: 0.2.9.14
+Version: 0.2.9.15
 Date: 2020-03-27
 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.9.14 Release Notes (2020-03-27)
+### 0.2.9.15 Release Notes (2020-03-27)
 
 ____________________________________________________________________________________
 

R/ShinyGR.R

@@ -147,7 +147,7 @@ ShinyGR <- function(ObsDF = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL,
   .GlobalEnv$.ShinyGR.args <- list(ObsDF = ObsDF, NamesObsBV = NamesObsBV,
                                    DatesR = DatesR, Precip = Precip, PotEvap = PotEvap, Qobs = Qobs, TempMean = TempMean, 
                                    ZInputs = ZInputs, HypsoData = HypsoData, NLayers = NLayers, SimPer = SimPer,
-                                   theme = theme)
+                                   theme = tolower(theme))
   
   ## timezone used
   # oTZ <- Sys.timezone()

inst/ShinyGR/ui.R

@@ -21,14 +21,14 @@ navbarPage(title       = div("airGRteaching",
            windowTitle = "airGRteaching",
            
            theme       = switch(.GlobalEnv$.ShinyGR.args$theme,
-                                RStudio   = "",
-                                Cyborg    = "css/bootstrap.min_Cyborg.css",
-                                Cerulean  = "css/bootstrap.min_Cerulean.css",
-                                Flatly    = "css/bootstrap.min_Flatly.css",
-                                United    = "css/bootstrap.min_United.css",
-                                Yeti      = "css/bootstrap.min_Yeti.css",
-                                Inrae     = "css/bootstrap.min_Inrae.css",
-                                Saclay    = "css/bootstrap.min_Saclay.css"
+                                rstudio   = "",
+                                cyborg    = "css/bootstrap.min_Cyborg.css",
+                                cerulean  = "css/bootstrap.min_Cerulean.css",
+                                flatly    = "css/bootstrap.min_Flatly.css",
+                                united    = "css/bootstrap.min_United.css",
+                                yeti      = "css/bootstrap.min_Yeti.css",
+                                inrae     = "css/bootstrap.min_Inrae.css",
+                                saclay    = "css/bootstrap.min_Saclay.css"
            ),