Renaming preprocessing
This commit is contained in:
parent
f0d381d6a2
commit
c69517dc6f
1 changed files with 7 additions and 1 deletions
|
|
@ -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"),
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue