diff --git a/feed_db.R b/feed_db.R index 1636892..f60a396 100644 --- a/feed_db.R +++ b/feed_db.R @@ -36,6 +36,7 @@ db %>% select(Etat, Etudiant, `Vœu`, Rang, Subdivision, Discipline, `Désir (non officiel) en chirurgie générale`, timestamp) %>% collect(n = Inf) %>% group_by(Etudiant) %>% + mutate_at(vars(`Désir (non officiel) en chirurgie générale`), as.character) %>% filter(timestamp == max(timestamp)) -> current @@ -87,6 +88,7 @@ listing # Ajout des différences avec timestamp listing %>% + mutate(`Désir (non officiel) en chirurgie générale` = `Désir (non officiel) en chirurgie générale` %>% as.character) %>% anti_join(current, by = c("Etat", "Etudiant", "Vœu", "Rang", "Subdivision", "Discipline", "Désir (non officiel) en chirurgie générale")) %>% dbWriteTable(conn = db, value = ., name = "trajectoires", append = T)