Renaming preprocessing

This commit is contained in:
Louis Lacoste 2024-05-04 18:43:57 +02:00
parent f0d381d6a2
commit c69517dc6f

View file

@ -259,7 +259,13 @@ out_data <- joined_data[!is.na(joined_data[["code_cours"]]), ] %>%
pivot_wider(names_from = code_bloc, values_from = code_cours, values_fn = filtrage) %>%
filter(!is.na(ine))
out_data <- out_data %>% relocate(any_of(c("ine", "dominante3A", "parcours", "domaine2A")))
out_data <- out_data %>% relocate(any_of(c(
"ine", "dominante3A", "parcours", "domaine2A", "1AC-OUVERTURE", "1AC-MI",
"2A-UEchoix-S1-UC1", "2A-UEchoix-S1-UC2", "2A-UEchoix-S2-UC3",
"2A-UEchoix-S2-UC4",
"2A-UEchoix-S2-UC5", "2A-UEchoix-S2-UC6",
"2A-Projet-S2"
)))
write.csv(out_data,
file.path(here(), "data", "02_preprocessed_data.csv"),