airGRteaching issueshttps://gitlab.irstea.fr/HYCAR-Hydro/airgrteaching/-/issues2021-01-20T10:27:25+01:00https://gitlab.irstea.fr/HYCAR-Hydro/airgrteaching/-/issues/17Remove useless eventReactive to update Event slider when a new dataset is sel...2021-01-20T10:27:25+01:00Delaigue OlivierRemove useless eventReactive to update Event slider when a new dataset is selectedThe following commands seem to be useless. This needs to be checked.
```r
eventReactive({input$Dataset}, {
updateSliderInput(session, inputId = "Event", label = "Select the target date:",
min = as.POSIXct(.Sh...The following commands seem to be useless. This needs to be checked.
```r
eventReactive({input$Dataset}, {
updateSliderInput(session, inputId = "Event", label = "Select the target date:",
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 = timeFormat, timezone = "+0000")
})
```
In addition, the `value` argument seems to be wrong. It seems to be an extra comma that puts time into another argument when it seems to need to be added up.
```r
## wrong?
value = as.POSIXct(.ShinyGR.args$SimPer[[input$Dataset]][1L], tz = "UTC"), + .TypeModelGR(input$HydroModel)$TimeLag
## right?
value = as.POSIXct(.ShinyGR.args$SimPer[[input$Dataset]][1L], tz = "UTC") + .TypeModelGR(input$HydroModel)$TimeLag
```