Switch automatique du mode étudiant/ville+spé en changeant un des

contrôles

app.R

@@ -279,6 +279,21 @@ server <- shinyServer(function(input, output, session)
                  updateNumericInput(session, "Etudiant", value = info$key)
                  updateRadioButtons(session, "Select", selected = "étudiant")
                })
+
+  observeEvent(input$Etudiant,
+               {
+                 updateRadioButtons(session, "Select", selected = "étudiant")
+               })
+
+  observeEvent(input$Spe,
+               {
+                 updateRadioButtons(session, "Select", selected = "ville + spé")
+               })
+
+  observeEvent(input$Ville,
+               {
+                 updateRadioButtons(session, "Select", selected = "ville + spé")
+               })
 })
 
 shinyApp(ui, server, options = list(host = "0.0.0.0", port = 4377))