celine2.0/misc.R

library(tidyverse)
library(shiny)
library(DT)
library(RSQLite)
library(stringr)
library(plotly)
library(forcats)
library(markdown)

uniq <- function(df, ...)
{
  eval(substitute(alist(...))) %>%
    map_chr(as.character) %>%
    intersect(names(df)) %>%
    map(~rle(df[[.x]] %>% c) %>%
            .$lengths %>%
            cumsum) %>%
    reduce(union) %>%
    sort -> columns

  df[columns,]
}

Sys.setlocale("LC_TIME", "fr_FR.UTF-8")

dbConnect(SQLite(), "ecn.db") -> db

# Index villes et spés ----
db %>%
  tbl("trajectoires") %>%
  select(Discipline, Subdivision) %>%
  distinct %>%
  collect -> villespe

villespe %>%
  select(Subdivision) %>%
  distinct %>%
  filter(Subdivision != "") %>%
  arrange(Subdivision) %>%
  pull(Subdivision) -> villes

villespe %>%
  select(Discipline) %>%
  distinct %>%
  filter(!Discipline %>% str_detect("(car aucun vœu)|(malgré.*)|(pas de.*)")) %>%
  arrange(Discipline) %>%
  pull(Discipline) -> spes

# Max rank ----
db %>%
  tbl("trajectoires") %>%
  select(Etudiant) %>%
  distinct %>%
  collect %>%
  pull(Etudiant) %>%
  max ->
max_rank

db %>% dbDisconnect