v0.2.9.22 CLEAN: theme argument of the ShinyGR function is now checked by the...

v0.2.9.22 CLEAN: theme argument of the ShinyGR function is now checked by the match.arg function #12

DESCRIPTION

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

R/ShinyGR.R

@@ -2,6 +2,9 @@ ShinyGR <- function(ObsDF = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL,
                     ZInputs = NULL, HypsoData = NULL, NLayers = 5, SimPer, NamesObsBV = NULL,
                     theme = "RStudio") {
 
+  theme <- match.arg(arg = theme,
+                     choices = c("RStudio", "Cerulean", "Cyborg", "Flatly", "Inrae", "Saclay", "United", "Yeti"))
+  
   if ((is.null(ObsDF) | any(sapply(ObsDF, is.null))) && (is.null(DatesR) | is.null(Precip) | is.null(PotEvap) | is.null(Qobs))) {
     stop("Missing input data")
   }