diff --git a/inst/ShinyGR/ui.R b/inst/ShinyGR/ui.R
index a6d3098808e5ebafd4bea7aade8bb8d9801cda23..78e32ec890a1541079dca59af50285106173af64 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))
                                                                )
                                                                
                                               )