Correction du graphique par étudiant pour faire apparaître la

trajectoire jusqu'à la dernière mise à jour

server.R

@@ -30,10 +30,7 @@ server <- shinyServer(function(input, output, session)
   {
     req(db())
 
-    db() %>%
-      select(Date) %>%
-      distinct %>%
-      pull(Date) %>%
+    db()$Date %>%
       range %>%
       map(~as.POSIXct(.x) %>%
           format(format = "%A %d %B %Y %H:%M") %>%
@@ -87,7 +84,7 @@ server <- shinyServer(function(input, output, session)
     {
       listingEtudiant() %>%
         select(-Rang, -Etudiant) %>%
-        uniq(Discipline, Subdivision) -> lst
+        uniq(Discipline, Subdivision, first = T) -> lst
     } else
     {
       listingEtudiant() -> lst
@@ -111,9 +108,12 @@ server <- shinyServer(function(input, output, session)
   {
     req(listingEtudiant())
 
+    db()$Date %>% max -> epoch
+
     listingEtudiant() %>%
       select(Etudiant, Subdivision, Discipline, Date, Vœu) %>%
-      uniq(Subdivision, Discipline) %>%
+      uniq(Subdivision, Discipline, first = T) %>%
+      add_row(Date = epoch, Etudiant = last(.$Etudiant), Subdivision = last(.$Subdivision), Discipline = last(.$Discipline)) %>%
       unite(Choix, Subdivision, Discipline, sep = " - ") %>%
       mutate(Date = Date %>% as.POSIXct)
   })