v0.2.10.7 UPDATE: missing daily Event sliders are now displayed monthly dates...

v0.2.10.7 UPDATE: missing daily Event sliders are now displayed monthly dates in the GUI when GR2M is used #14

DESCRIPTION

 Package: airGRteaching
 Type: Package
 Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
-Version: 0.2.10.6
+Version: 0.2.10.7
 Date: 2020-04-14
 Authors@R: c(
   person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@inrae.fr"),

NEWS.md

@@ -4,7 +4,7 @@
 
 
 
-### 0.2.10.6 Release Notes (2020-04-14)
+### 0.2.10.7 Release Notes (2020-04-14)
 
 
 #### New features

inst/ShinyGR/server.R

@@ -548,14 +548,15 @@ shinyServer(function(input, output, session) {
                       min = as.POSIXct(.ShinyGR.args$SimPer[[input$Dataset]][1L], tz = "UTC"),## + .TypeModelGR(input$HydroModel)$TimeLag,
                       max = as.POSIXct(.ShinyGR.args$SimPer[[input$Dataset]][2L], tz = "UTC"),
                       value = as.POSIXct(.ShinyGR.args$SimPer[[input$Dataset]][1L], tz = "UTC"), + .TypeModelGR(input$HydroModel)$TimeLag,
-                      timeFormat = "%F", timezone = "+0000")
+                      timeFormat = timeFormat, timezone = "+0000")
   })
   observe({
+    timeFormat <- ifelse(input$HydroModel == "GR2M", "%Y-%m", "%F")
     updateSliderInput(session, inputId = "Event", label = "Select the target date:",
                       min = input$Period[1L],## + .TypeModelGR(input$HydroModel)$TimeLag,
                       max = input$Period[2L],
-                      timeFormat = "%F", timezone = "+0000")
-  })
+                      timeFormat = timeFormat, timezone = "+0000")
+  }, priority = -100)
   
   
   ## Graphical parameters