NEW: add a specific EventGR2M slider in the ui file #14

703e2cc9 · Delaigue Olivier · e69dcd81 · 703e2cc9
Commit 703e2cc9 authored 4 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 11 additions and 1 deletion
+11 -1
--- a/inst/ShinyGR/ui.R
+++ b/inst/ShinyGR/ui.R
@@ -149,6 +149,7 @@ navbarPage(title       = div("airGRteaching",
                                              ),
                                              conditionalPanel(condition = "input.PlotType == 'Model diagram'",
                                                               column(width = 4, offset = 0,
+                                                                      conditionalPanel(condition = "input.HydroModel != 'GR2M'",
                                                                      sliderInput("Event", label = "Select the target date:", 
                                                                                  min = as.POSIXct(.ShinyGR.args$SimPer[[1]][1L], tz = "UTC"),
                                                                                  max = as.POSIXct(.ShinyGR.args$SimPer[[1]][2L], tz = "UTC"),
@@ -156,7 +157,16 @@ navbarPage(title       = div("airGRteaching",
                                                                                  timeFormat = "%F",
                                                                                  timezone = "+0000",
                                                                                  animate = animationOptions(interval = 500),
-                                                                                  step = 3600 * 24)
+                                                                                  step = 3600 * 24)),#step = 3600 * 24
+                                                                      conditionalPanel(condition = "input.HydroModel == 'GR2M'",
+                                                                                       sliderInput("EventGR2M", label = "Select the target date:",
+                                                                                                   min = as.POSIXct(.ShinyGR.args$SimPer[[1]][1L], tz = "UTC"),
+                                                                                                   max = as.POSIXct(.ShinyGR.args$SimPer[[1]][2L], tz = "UTC"),
+                                                                                                   value = as.POSIXct(.ShinyGR.args$SimPer[[1]][1L], tz = "UTC"),
+                                                                                                   timeFormat = "%Y-%m",
+                                                                                                   timezone = "+0000",
+                                                                                                   animate = animationOptions(interval = 500),
+                                                                                                   step = 3600*24*30))
                                                               )
                                                               
                                              )