Force désir de chirurgie as character in both sources

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)