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

v0.2.10.109 refactor: change text on plot.PrepGR when all Qobs are missing

Refs #35
parent 8b065248
Pipeline #19329 passed with stages
Package: airGRteaching
Type: Package
Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
Version: 0.2.10.108
Version: 0.2.10.109
Date: 2021-01-18
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.10.108 Release Notes (2021-01-18)
### 0.2.10.109 Release Notes (2021-01-18)
#### New features
......
......@@ -35,7 +35,7 @@ plot.PrepGR <- function(x, type = "l", col.Precip = "royalblue", col.Q = "black"
par(yaxt = "n")
plot(x = range(data$DatesR), y = c(0, 0), type = "n",
xlab = xlab, ylab = ylab[2L], main = "")
text(x = median(data$DatesR), y = 0, labels = "No Qobs")
text(x = median(data$DatesR), y = 0, labels = "No observed\ndischarges")
} else {
plot(Qobs ~ DatesR, data = data, type = type, col = col.Q,
xlab = xlab, ylab = ylab[2L], main = "")
......
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