From 703e2cc97d77b1893d04fa3da2bd1c13e61d3a68 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Wed, 29 Apr 2020 05:42:28 +0000
Subject: [PATCH] NEW: add a specific EventGR2M slider in the ui file #14
---
inst/ShinyGR/ui.R | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/inst/ShinyGR/ui.R b/inst/ShinyGR/ui.R
index a6d3098..78e32ec 100644
--- 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))
)
)
--
GitLab