From d0dd2afc9ca06cc99b59bb16d1c769a42484ef3e Mon Sep 17 00:00:00 2001
From: unknown <olivier.delaigue@ANPI1430.antony.irstea.priv>
Date: Fri, 7 Apr 2017 17:17:07 +0200
Subject: [PATCH] v0.1.2.27 bug fixed in ShinyGR to plot state variables whith
GRJ
---
DESCRIPTION | 2 +-
inst/ShinyGR/server.R | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 276a46c..f72e78f 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 Application)
-Version: 0.1.2.26
+Version: 0.1.2.27
Date: 2017-04-07
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)
diff --git a/inst/ShinyGR/server.R b/inst/ShinyGR/server.R
index e5e4420..cd9bdd5 100644
--- a/inst/ShinyGR/server.R
+++ b/inst/ShinyGR/server.R
@@ -118,7 +118,7 @@ shinyServer(function(input, output, session) {
IndPlot <- which(OutputsModel$DatesR >= input$Period[1L] & OutputsModel$DatesR <= input$Period[2L])
- aaa <- sapply(OutputsModel[1:15], function(x) x[IndPlot])
+ aaa <- sapply(OutputsModel[ seq_len(which(names(OutputsModel) == "Qsim"))], function(x) x[IndPlot])
aaa <- c(aaa, Qobs = list(getRES()$SIM$Qobs[IndPlot]))
if (getPlotType() == 4) {
--
GitLab