v0.2.9.16 BUG: the colors of plots are now ok when the cyborg or the flatly...

v0.2.9.16 BUG: the colors of plots are now ok when the cyborg or the flatly themes are use in the ShinyGR function
troubles were caused by the commit d8e5fa00

DESCRIPTION

 Package: airGRteaching
 Type: Package
 Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
-Version: 0.2.9.15
+Version: 0.2.9.16
 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,16 @@
 
 
 
-### 0.2.9.15 Release Notes (2020-03-27)
+### 0.2.9.16 Release Notes (2020-03-27)
+
+
+#### New features
+
+- 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)
+
+
+#### User-visible changes
+- the <code>theme</code> agument of the <code>ShinyGR()<.code> function now works even if the user used the wrong character case
 
 ____________________________________________________________________________________
 

R/Utils.R

@@ -168,7 +168,7 @@ if (getRversion() >= "2.15.1") {
   
   par(col.axis = par("fg"), cex.axis = 1.3, cex.lab = 1.3, cex = 0.7, mgp = mgp)
   
-  if (.GlobalEnv$.ShinyGR.args$theme == "Cyborg") {
+  if (.GlobalEnv$.ShinyGR.args$theme == "cyborg") {
     col_mod_bg    <- rgb(255-245, 255-245, 255-245, maxColorValue = 255)
     col_mod_bd    <- rgb(255-231, 255-231, 255-231, maxColorValue = 255)
   }

inst/ShinyGR/server.R

@@ -480,11 +480,11 @@ shinyServer(function(input, output, session) {
   
   ## Graphical parameters
   getPlotPar <- reactive({
-    if (.GlobalEnv$.ShinyGR.args$theme == "Cyborg") {
+    if (.GlobalEnv$.ShinyGR.args$theme == "cyborg") {
       col_bg <- "black"
       col_fg <- "white"
       par(bg = col_bg, fg = col_fg, col.axis = col_fg, col.lab = col_fg)
-    } else if (.GlobalEnv$.ShinyGR.args$theme == "Flatly") {
+    } else if (.GlobalEnv$.ShinyGR.args$theme == "flatly") {
       col_bg <- "#2C3E50"
       col_fg <- "black"
       par(bg = col_bg, fg = col_fg, col.axis = col_bg, col.lab = col_bg)