Commit 3f9fdcb3 authored by unknown's avatar unknown
Browse files

v0.1.2.31 color updated for the "State variables" plot in the shiny interface

parent 5a28515b
Package: airGRteaching
Type: Package
Title: Tools to Simplify the Use of the airGR Hydrological Package for Education (Including a Shiny Application)
Version: 0.1.2.30
Version: 0.1.2.31
Date: 2017-04-10
Authors@R: c(person("Olivier", "Delaigue", role = c("aut", "cre"), email = "airGR@irstea.fr"), person("Laurent", "Coron", role = c("aut")), person("Pierre", "Brigode", role = c("aut")), person("Guillaume", "Thirel", role = c("ctb")))
Depends: airGR (>= 1.0.5.22)
......
......@@ -155,11 +155,11 @@ shinyServer(function(input, output, session) {
legend("topright", bty = "n", legend = c("prod.", "rout."), fill = adjustcolor(c("darkblue", "cyan4"), alpha.f = 0.30))
par(mar = c(5.0, 4.0, 0.0, 2.0), xaxt = "s")
plot(aaa$DatesR, aaa$Qobs, type = "n", xlab = "", ylab = "flow [mm/d]")
polygon(c(aaa$Dates, rev(range(aaa$Dates))), c(aaa$QR+aaa$QD, rep(0, 2)), col = adjustcolor("orange", alpha.f = 0.65), border = NA)
polygon(c(aaa$Dates, rev(range(aaa$Dates))), c(aaa$QR , rep(0, 2)), col = adjustcolor("gold" , alpha.f = 0.99), border = NA)
polygon(c(aaa$Dates, rev(range(aaa$Dates))), c(aaa$QR+aaa$QD, rep(0, 2)), col = adjustcolor("orange2", alpha.f = 0.75), border = NA)
polygon(c(aaa$Dates, rev(range(aaa$Dates))), c(aaa$QR , rep(0, 2)), col = adjustcolor("gold" , alpha.f = 0.70), border = NA)
lines(aaa$DatesR, aaa$Qsim, lwd = 1, col = "orangered")
lines(aaa$DatesR, aaa$Qobs, type = "l", lwd = 1, col = par("fg"))
legend("topright", bty = "n", legend = c("obs.", "sim.", "Qd", "Qr"), col = c(par("fg"), "orangered", "orange", "gold"), lwd = c(2, 2, NA, NA), pch = c(NA, NA, 15, 15))
legend("topright", bty = "n", legend = c("obs.", "sim.", "Qd", "Qr"), col = c(par("fg"), "orangered", "orange2", "gold"), lwd = c(2, 2, NA, NA), pch = c(NA, NA, 15, 15))
}
......
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