Commit b116f036 authored by unknown's avatar unknown
Browse files

v0.1.2.52 bug fixed (sliderInput "Period") in ui.R file for the shiny.SimGR() function

parent 35afaa88
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.51
Version: 0.1.2.52
Date: 2017-06-02
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)
......
......@@ -118,6 +118,7 @@ shinyServer(function(input, output, session) {
})
IndPlot <- which(OutputsModel$DatesR >= input$Period[1L] & OutputsModel$DatesR <= input$Period[2L])
aaa <- sapply(OutputsModel[ seq_len(which(names(OutputsModel) == "Qsim"))], function(x) x[IndPlot])
aaa <- c(aaa, Qobs = list(getRES()$SIM$Qobs[IndPlot]))
......
......@@ -120,7 +120,7 @@ navbarPage(title = div("airGRteaching",
selectInput("PlotType", label = "Choose a plot:",
choices = c("Model performance", "Flow time series", "State variables", "Model diagram"))#, "user-defined"))
),
conditionalPanel(condition = "input.PlotType != 'Model diagram'",
# conditionalPanel(condition = "input.PlotType != 'Model diagram'",
column(4, offset = 1,
sliderInput("Period", label = "Select the time window:",
min = as.POSIXct(.ShinyGR.args$SimPer[1L], tz = "UTC"),
......@@ -128,9 +128,9 @@ navbarPage(title = div("airGRteaching",
value = as.POSIXct(.ShinyGR.args$SimPer, tz = "UTC"),
timeFormat = "%F",
timezone = "+0000",
animate = TRUE)
)
),
animate = FALSE)
),
# ),
# conditionalPanel(condition = "input.PlotType == 'Model diagram'",
# column(4, offset = 1,
# sliderInput("Period", label = "Select the time window:",
......@@ -155,15 +155,15 @@ navbarPage(title = div("airGRteaching",
# )
# ),
conditionalPanel(condition = "input.PlotType == 'Model diagram' & (input.TypeModel =='GR4J' || input.TypeModel =='GR5J' || input.TypeModel =='GR6J')",
column(4, offset = 1,
sliderInput("Period", label = "Select the time window:",
min = as.POSIXct(.ShinyGR.args$SimPer[1L], tz = "UTC"),
max = as.POSIXct(.ShinyGR.args$SimPer[2L], tz = "UTC"),
value = as.POSIXct(.ShinyGR.args$SimPer, tz = "UTC"),
timeFormat = "%F",
timezone = "+0000",
animate = FALSE)
),
# column(4, offset = 1,
# sliderInput("Period", label = "Select the time window:",
# min = as.POSIXct(.ShinyGR.args$SimPer[1L], tz = "UTC"),
# max = as.POSIXct(.ShinyGR.args$SimPer[2L], tz = "UTC"),
# value = as.POSIXct(.ShinyGR.args$SimPer, tz = "UTC"),
# timeFormat = "%F",
# timezone = "+0000",
# animate = FALSE)
# ),
column(4, offset = 0,
sliderInput("Event", label = "Select the target date:",
min = as.POSIXct(.ShinyGR.args$SimPer[1L], tz = "UTC"),
......
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