Commit 043ae15d authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

fix(GUI): replace the use of OutputsModel$Exch by OutputsModel$AExch when GR2M...

fix(GUI): replace the use of OutputsModel$Exch by OutputsModel$AExch when GR2M is used in .DiagramGR
Refs #40
parent 9c140c3a
Pipeline #23949 passed with stage
in 1 minute and 47 seconds
......@@ -5,6 +5,9 @@
### 0.2.11.9000 Release Notes (2021-06-10)
#### Bug fixes
- Fix the export of the GR2M model diagram PNG file in the GUI launched by `ShinyGR()`. ([#40](https://gitlab.irstea.fr/HYCAR-Hydro/airgrteaching/-/issues/40))
____________________________________________________________________________________
......
......@@ -798,10 +798,10 @@ if (getRversion() >= "2.15.1") {
arrows(x0 = xy_min_ROUT[1]+base_res, x1 = 1025,
y0 = y_Ech_Q9 , y1 = y_Ech_Q9,
length = 0.075, angle = 20, code = 3)
pch <- ifelse(OutputsModel$Exch[i_pdt] < 0, tri_R, tri_L)
pch <- ifelse(OutputsModel$AExch[i_pdt] < 0, tri_R, tri_L)
points(x = xy_min_ROUT[1]+base_res+80, y = y_Ech_Q9,
type = "p", pch = pch, col = col_P,
cex = cex_tri(OutputsModel$Exch[i_pdt], fact = fact_triangle, max = cex_max_poly))
cex = cex_tri(OutputsModel$AExch[i_pdt], fact = fact_triangle, max = cex_max_poly))
}
# Actual exchange Q9 exp.
......
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