Commit e2875321 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v0.2.3.2 .DiagramGR no longer returns errors when inputs are not yet available in ShinyGR

parent e6cd5562
Package: airGRteaching
Type: Package
Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
Version: 0.2.3.1
Version: 0.2.3.2
Date: 2018-08-08
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)
......
############# Release History of the airGRteaching Package
## 0.2.3.1 Release Notes (2018-08-08)
## 0.2.3.2 Release Notes (2018-08-08)
CRAN-compatibility updates
- now depends on the latest version (1.1.1.6) of the dygraphs package from CRAN (embeded dygraphs functions have been removed)
Major user-visible changes
User-visible changes
- the article reference is updated
- .DiagramGR() no longer returns errors when inputs are not yet available in ShinyGR()
## 0.2.2.2 Release Notes (2018-03-21)
......
......@@ -635,18 +635,18 @@ shinyServer(function(input, output, session) {
output$stPlotMD <- renderPlot({
if (length(getSim()$SIM$OutputsModel$DatesR) < 2) {
return(NULL)
}
}
# OutputsModel <- getSim()$SIM$OutputsModel
# IndPlot <- which(OutputsModel$DatesR >= input$Period[1L] & OutputsModel$DatesR <= input$Period[2L])
# OutputsModel2 <- sapply(OutputsModel[seq_len(which(names(OutputsModel) == "Qsim"))], function(x) x[IndPlot])
# OutputsModel2 <- c(OutputsModel2, Qobs = list(getSim()$SIM$Qobs[IndPlot]))
OutputsModel2 <- getData()$OutputsModel
par(getPlotPar()$par)
.DiagramGR(OutputsModel = OutputsModel2, Param = getSim()$PARAM,
try(.DiagramGR(OutputsModel = OutputsModel2, Param = getSim()$PARAM,
SimPer = input$Period, EventDate = input$Event,
HydroModel = input$HydroModel)
HydroModel = input$HydroModel), silent = TRUE)
}, bg = "transparent")
......
Markdown is supported
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