Tables interactives (switch Étudiant/Ville+spé en cliquant sur une ligne)

app.R

@@ -246,6 +246,31 @@ server <- shinyServer(function(input, output, session)
   selection = "none",
   rownames = F
   )
+
+  observeEvent(input$outTable_cell_clicked,
+               {
+                 info = input$outTable_cell_clicked
+                 if (is.null(info$value)) return()
+
+                 if (input$Select == "étudiant")
+                 {
+                   valueVille <- tableEtudiant()$Subdivision[info$row]
+                   valueSpe <- tableEtudiant()$Discipline[info$row]
+                   valueEtudiant <- input$Etudiant
+                   valueSelect <- "ville + spé"
+                 } else
+                 {
+                   valueVille <- input$Ville
+                   valueSpe <- input$Spe
+                   valueEtudiant <- tableVilleSpe()$Etudiant[info$row]
+                   valueSelect <- "étudiant"
+                 }
+
+                 updateNumericInput(session, "Etudiant", value = valueEtudiant)
+                 updateRadioButtons(session, "Ville", selected = valueVille)
+                 updateRadioButtons(session, "Spe", selected = valueSpe)
+                 updateRadioButtons(session, "Select", selected = valueSelect)
+               })
 })
 
 shinyApp(ui, server, options = list(host = "0.0.0.0", port = 4377))