Commit d1a2eef7 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

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
parent 34fa85ff
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"),
......
......@@ -4,7 +4,7 @@
### 0.2.9.21 Release Notes (2020-03-29)
### 0.2.9.22 Release Notes (2020-03-29)
#### New features
......
......@@ -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")
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment