Correction du bug à l'affichage du plot

app.R

@@ -126,7 +126,7 @@ server <- shinyServer(function(input, output, session)
 
   listingEtudiant <- reactive(
   {
-    req(db(), input$Etudiant)
+    req(input$Etudiant)
 
     db() %>%
       filter(Etudiant == input$Etudiant) %>%
@@ -157,13 +157,13 @@ server <- shinyServer(function(input, output, session)
     req(listingEtudiant())
 
     listingEtudiant() %>%
-      select(Subdivision, Discipline, Date) %>%
+      select(Subdivision, Discipline, Date, Vœu) %>%
       uniq(Subdivision, Discipline)
   })
 
   listingVilleSpe <- reactive(
   {
-    req(db(), input$Ville, input$Spe)
+    req(input$Ville, input$Spe)
 
     db() %>%
       filter(Subdivision == input$Ville,
@@ -184,7 +184,7 @@ server <- shinyServer(function(input, output, session)
 
   plotVilleSpe <- reactive(
   {
-    req(db(), listingVilleSpe())
+    req(listingVilleSpe())
 
     listingVilleSpe()$Etudiant %>%
       unique -> etudiants
@@ -217,7 +217,6 @@ server <- shinyServer(function(input, output, session)
   })
 
   output$outPlot <- renderPlotly({
-    req(plotEtudiant(), plotVilleSpe())
 
     if (input$Select == "étudiant")
       plotEtudiant() %>%