En raison d'une défaillance matérielle, les jobs d'intégration continue peuvent échouer sans raison évidente sur les runners partagés. Les disques incriminés devraient être changés en fin de semaine. Merci de votre compréhension.

Commit 0ddda0e5 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v0.2.9.4 NEW: add observEvent objects to synchonize dataset between the...

v0.2.9.4 NEW: add observEvent objects to synchonize dataset between the Interface the Summary sheet tabPanels #10
parent f7d19dd7
Package: airGRteaching
Type: Package
Title: Teaching Hydrological Modelling with the GR Rainfall-Runoff Models ('Shiny' Interface Included)
Version: 0.2.9.3
Version: 0.2.9.4
Date: 2020-03-24
Authors@R: c(
person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@inrae.fr"),
......
......@@ -4,7 +4,7 @@
### 0.2.9.3 Release Notes (2020-03-24)
### 0.2.9.4 Release Notes (2020-03-24)
____________________________________________________________________________________
......
......@@ -441,13 +441,24 @@ shinyServer(function(input, output, session) {
}, priority = +10)
## Time window slider
## Time window slider and dataset choosen on the Summary sheet panel
observeEvent({input$Dataset}, {
updateSliderInput(session, inputId = "Period",
min = as.POSIXct(.ShinyGR.args$SimPer[[input$Dataset]][1L], tz = "UTC"),
max = as.POSIXct(.ShinyGR.args$SimPer[[input$Dataset]][2L], tz = "UTC"),
value = as.POSIXct(.ShinyGR.args$SimPer[[input$Dataset]], tz = "UTC"),
timeFormat = "%F", timezone = "+0000")
updateSelectInput(session, inputId = "DatasetSheet",
choices = .ShinyGR.args$NamesObsBV,
selected = input$Dataset)
})
## Dataset choosen on the SInterface panel
observeEvent({input$DatasetSheet}, {
updateSelectInput(session, inputId = "Dataset",
choices = .ShinyGR.args$NamesObsBV,
selected = input$DatasetSheet)
})
......@@ -976,7 +987,7 @@ shinyServer(function(input, output, session) {
tags$p(tags$h6("Click on the image to open it in a new window and to enlarge it."),
tags$a(href = urlSheet, target = "_blank", rel = "noopener noreferrer",
tags$img(src = urlSheet, height = "770px",
alt = sprintf("Go to webGR.inrae.fr to see %s in the activities/database section", codeBH),
alt = sprintf("If the image does not appear, try by clicking on this link."),
title = "Click to open in a new window")))
} else {
urlSheet <- "fig/sheet_W1110010_thumbnail.png"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment