STatic version

misc.R

@@ -40,38 +40,49 @@ uniq <- function(df, ..., first = F)
 
 Sys.setlocale("LC_TIME", "fr_FR.UTF-8")
 
-dbConnect(SQLite(), "ecn.db") -> db
+dbConnect(SQLite(), "ecn.db") -> dbc
+
+dbc %>%
+  dbReadTable("trajectoires") ->
+dbs
+
+dbc %>% dbDisconnect
+rm(dbc)
 
 # Index villes et spés ----
-db %>%
-  tbl("trajectoires") %>%
+dbs %>%
+  # tbl("trajectoires") %>%
   select(Discipline, Subdivision) %>%
-  distinct %>%
-  collect -> villespe
+  distinct ->
+villespe
+  # distinct %>%
+  # collect -> villespe
 
 villespe %>%
   select(Subdivision) %>%
   distinct %>%
   filter(Subdivision != "") %>%
   arrange(Subdivision) %>%
-  pull(Subdivision) -> villes
+  pull(Subdivision) ->
+villes
 
 villespe %>%
   select(Discipline) %>%
   distinct %>%
   filter(!Discipline %>% str_detect("(car aucun vœu)|(malgré.*)|(pas de.*)")) %>%
   arrange(Discipline) %>%
-  pull(Discipline) -> spes
+  pull(Discipline) ->
+spes
 
 # Max rank ----
-db %>%
-  tbl("trajectoires") %>%
+dbs %>%
+  # tbl("trajectoires") %>%
   select(Etudiant) %>%
   distinct %>%
-  collect %>%
+  # collect %>%
   pull(Etudiant) %>%
   max ->
 max_rank
 
-db %>% dbDisconnect
+# db %>% dbDisconnect
 

server_.R

@@ -1,27 +1,27 @@
 server <- shinyServer(function(input, output, session)
 {
-  updateDb <- reactiveTimer(4 * 60 * 1000, session)
+  # updateDb <- reactiveTimer(4 * 60 * 1000, session)
 
   db <- reactive(
   {
     req(input$CESP)
-    updateDb()
+    # updateDb()
 
-    db <- dbConnect(SQLite(), "ecn.db", on.exit(dbDisconnect(db), add = T))
+    # db <- dbConnect(SQLite(), "ecn.db", on.exit(dbDisconnect(db), add = T))
 
     if (input$CESP == "CESP")
     {
-      db %>%
-        tbl("trajectoires") %>%
+      dbs %>%
+        # tbl("trajectoires") %>%
         filter(CESP == "CESP") %>%
-        collect %>%
+        # collect %>%
         rename(Date = timestamp)
     } else
     {
-      db %>%
-        tbl("trajectoires") %>%
+      dbs %>%
+        # tbl("trajectoires") %>%
         filter(CESP == "") %>%
-        collect %>%
+        # collect %>%
         rename(Date = timestamp)
     }
   })
@@ -72,8 +72,7 @@ server <- shinyServer(function(input, output, session)
     db() %>%
       filter(Etudiant == input$Etudiant) %>%
       arrange(Date) %>%
-      select(Etudiant, Date, Etat, `Vœu`, Subdivision, Discipline, Rang) %>%
-      collect
+      select(Etudiant, Date, Etat, `Vœu`, Subdivision, Discipline, Rang)
   })
 
   tableEtudiant <- reactive(