orga/select_trainee.R

+library(tidyverse)
+banned <- c(
+  "marine.villard01@chu-lyon.fr"
+)
+
+days <- c("monday_11h_12h30", "tuesday_11h_12h30", "friday_11h_12h30")
+for( day in days) {
+  read_tsv("trainee.tsv", skip = 2) %>% 
+    janitor::clean_names() %>% 
+    filter(!(email %in% banned)) %>% 
+    select(c(
+      sequentiel, email, lab,
+      monday_11h_12h30, tuesday_11h_12h30, friday_11h_12h30,
+      comments))  %>% 
+    filter(!duplicated(email)) %>% 
+    filter(
+      .[[day]] %in% "first choice"
+    ) %>% 
+    select(c(
+      email)) %>%
+    write_csv(str_c(day, ".csv"))
+}
+

orga/wifi_account_2_login.sh

+#! /usr/bin/bash
+
+# list wifi loing from pdf
+echo "login"
+pdfgrep "Votre nom de connexion ou login" *.pdf | sed -E 's/.*:.*(z.*)/\1/g'
+echo
+echo "mot de passe"
+pdfgrep "Votre mot de passe initial" FicheLogin*.pdf | sed -E 's/.*:.*([a-Z0-9]{8})$/\1/g'