Commit d0dd2afc authored by unknown's avatar unknown
Browse files

v0.1.2.27 bug fixed in ShinyGR to plot state variables whith GRJ

parent 1f49ddc2
No related merge requests found
Showing with 2 additions and 2 deletions
+2 -2
Package: airGRteaching Package: airGRteaching
Type: Package Type: Package
Title: Tools to Simplify the Use of the airGR Hydrological Package for Education (Including a Shiny Application) 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 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"))) 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) Depends: airGR (>= 1.0.5.22)
......
...@@ -118,7 +118,7 @@ shinyServer(function(input, output, session) { ...@@ -118,7 +118,7 @@ shinyServer(function(input, output, session) {
IndPlot <- which(OutputsModel$DatesR >= input$Period[1L] & OutputsModel$DatesR <= input$Period[2L]) 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])) aaa <- c(aaa, Qobs = list(getRES()$SIM$Qobs[IndPlot]))
if (getPlotType() == 4) { if (getPlotType() == 4) {
......
Supports Markdown
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