From 4beafc3b3a9824f64a0c578db3b5236dfdd333cc Mon Sep 17 00:00:00 2001 From: unknown <olivier.delaigue@ANPI1430.antony.irstea.priv> Date: Tue, 23 Jan 2018 16:09:09 +0100 Subject: [PATCH] v0.1.9.12 label positions modified in model diagram of ShinyGR --- DESCRIPTION | 2 +- R/Utils.R | 13 +++++-------- 2 files changed, 6 insertions(+), 9 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 885a55e..009aaf1 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: airGRteaching Type: Package Title: Tools to Simplify the Use of the airGR Hydrological Package for Education (Including a Shiny Interface) -Version: 0.1.9.11 +Version: 0.1.9.12 Date: 2018-01-23 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) diff --git a/R/Utils.R b/R/Utils.R index 74a7fef..15e07bd 100644 --- a/R/Utils.R +++ b/R/Utils.R @@ -350,8 +350,7 @@ DiagramGR <- function(OutputsModel, Param, SimPer, EventDate, HydroModel) { y0 = xy_min_PROD[2], y1 = xy_min_PROD[2]+Param[1]*fact_res) segments(x0 = xy_min_PROD[1]+base_res, x1 = xy_min_PROD[1]+base_res, y0 = xy_min_PROD[2], y1 = xy_min_PROD[2]+Param[1]*fact_res) - text(x = 30, y = xy_min_PROD[2]+Param[1]*fact_res/3, labels = "Prod.\nstore", - cex = 1.4, pos = 4) + text(x = 30, y = xy_min_PROD[2]+15, labels = "Prod.\nstore", cex = 1.4, pos = 4) # -------------------------------------------------------------------------------- @@ -585,8 +584,7 @@ DiagramGR <- function(OutputsModel, Param, SimPer, EventDate, HydroModel) { y0 = xy_min_ROUT[2], y1 = xy_min_ROUT[2]+Param[3]*fact_res+tmp_triche) segments(x0 = xy_min_ROUT[1]+base_res, x1 = xy_min_ROUT[1]+base_res, y0 = xy_min_ROUT[2], y1 = xy_min_ROUT[2]+Param[3]*fact_res+tmp_triche) - text(x = 50, y = xy_min_ROUT[2]+Param[3]*fact_res/3, labels = "Routing\nstore", - cex = 1.4, pos = 4) + text(x = 30, y = xy_min_ROUT[2]+15, labels = "Routing\nstore", cex = 1.4, pos = 4) # Sorties du reservoir segments(x0 = xy_min_ROUT[1]+base_res/2, x1 = xy_min_ROUT[1]+base_res/2, @@ -645,11 +643,10 @@ DiagramGR <- function(OutputsModel, Param, SimPer, EventDate, HydroModel) { y0 = xy_min_EXPO[2], y1 = xy_min_EXPO[2]-max(abs(OutputsModel$Exp))*fact_res-tmp_triche) segments(x0 = xy_min_EXPO[1]+base_res, x1 = xy_min_EXPO[1]+base_res, y0 = xy_min_EXPO[2], y1 = xy_min_EXPO[2]-max(abs(OutputsModel$Exp))*fact_res-tmp_triche) - text(x = 50, y = xy_min_EXPO[2]+Param[3]*fact_res/3, labels = "Exp.\nstore", - cex = 1.4, pos = 4) - points(x = 180, y = xy_min_EXPO[2]+Param[3]*fact_res/3+05, pch = 43, # + + text(x = 30, y = xy_min_EXPO[2]+00, labels = "Exp.\nstore", cex = 1.4, pos = 4) + points(x = 180, y = xy_min_EXPO[2]+20, pch = 43, # + cex = 2.0, col = "#10B510") - points(x = 178, y = xy_min_EXPO[2]+Param[3]*fact_res/3-35, pch = 95, # - + points(x = 178, y = xy_min_EXPO[2]-20, pch = 95, # - cex = 1.6, col = "#FF0303") # Valeur de QrExp -- GitLab