Commit 633f6b52 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v0.2.3.5 add an error in ShinyGR when NamesObsBV is an empty string

parent 4af5bae0
Package: airGRteaching
Type: Package
Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
Version: 0.2.3.4
Version: 0.2.3.5
Date: 2018-08-12
Authors@R: c(
person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@irstea.fr"),
......
############# Release History of the airGRteaching Package
## 0.2.3.4 Release Notes (2018-08-12)
## 0.2.3.5 Release Notes (2018-08-12)
## 0.2.3.2 Release Notes (2018-08-08)
......
......@@ -42,6 +42,11 @@ ShinyGR <- function(ObsDF = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL,
} else if (is.null(ObsDF)) {
NamesObsBV <- ifelse(is.null(NamesObsBV), "Unnamed watershed", NamesObsBV[1L])
}
if (!is.null(NamesObsBV)) {
if (any(nchar(NamesObsBV) == 0)) {
stop("NamesObsBV must be a string vector of at least one character.")
}
}
if (is.null(ObsDF)) {
if (length(ZInputs) > 1) {
......
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