Points sur le graph qu'aux entrées/sorties

app.R

@@ -227,7 +227,10 @@ server <- shinyServer(function(input, output, session)
         plotVilleSpe() %>%
           ggplot(aes(x = Date, y = Rang, color = Etudiant)) +
           geom_line() +
-          geom_point()
+          geom_point(data = plotVilleSpe() %>%
+                     group_by(Etudiant) %>%
+                     filter(!Rang %>% is.na & (lag(Rang) %>% is.na | lead(Rang) %>% is.na))
+                     )
   })
 
   output$outTable <- renderDataTable(