Commit 1b21e4d7 authored by unknown's avatar unknown
Browse files

v0.1.6.4 Qfinal is now drawn on Model diagram of ShinyGR interface

parent aaede74a
Package: airGRteaching
Type: Package
Title: Tools to Simplify the Use of the airGR Hydrological Package for Education (Including a Shiny Interface)
Version: 0.1.6.3
Version: 0.1.6.5
Date: 2017-09-27
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.9.43)
......
......@@ -560,6 +560,11 @@ DiagramGR <- function(OutputsModel, Param, SimPer, EventDate, HydroModel) {
# Q final
segments(x0 = xy_Q[1], x1 = xy_Q[1], y0 = y_routage, y1 = xy_Q[2]+10)
if (OutputsModel$Qsim[i_pdt] != 0) {
points(x = xy_Q[1], y = mean(c(y_routage, xy_Q[2]+10)),
type = "p", pch = tri_B, col = col_Q,
cex = cex_tri(OutputsModel$Qsim[i_pdt], fact = fact_triangle, max = cex_max_poly))
}
# --------------------------------------------------------------------------------
......
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