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

NEWS.md

@@ -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))
 
 ____________________________________________________________________________________
 

R/Utils.R

@@ -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.