diff --git a/DESCRIPTION b/DESCRIPTION index 276a46cafcfcd30c0cdeaa03cf60f21a19331c7f..f72e78fbb72142ba181aeb364dc0a1e3f0a6d81e 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 e5e4420432af4e59cf1d2a135e225e28aeaa5882..cd9bdd56488c1dd9a34dae9eed13effadeab4048 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) {