Replace collect(n = Inf) with collect

app.R

@@ -29,7 +29,7 @@ db %>%
   tbl("trajectoires") %>%
   select(Discipline, Subdivision) %>%
   distinct %>%
-  collect(n = Inf) -> villespe
+  collect -> villespe
 
 villespe %>%
   select(Subdivision) %>%
@@ -50,7 +50,7 @@ db %>%
   tbl("trajectoires") %>%
   select(Etudiant) %>%
   distinct %>%
-  collect(n = Inf) %>%
+  collect %>%
   pull(Etudiant) %>%
   max ->
 max_rank