|
|
@@ -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) |
|
|
|
|
|
|
|