From d5a128a6e52bd3929939e419141319cf670aa19d Mon Sep 17 00:00:00 2001 From: Milet Arnaud Date: Tue, 29 Oct 2024 18:01:39 +0100 Subject: [PATCH] Ajout filiere --- analyse/couverture_catalogue/generer_rapports.R | 2 +- .../parcoursup/parcoursup_10_2024.html | 9 +++++++-- .../couverture_catalogue/stats_catalogue_generique.Rmd | 4 ++-- 3 files changed, 10 insertions(+), 5 deletions(-) diff --git a/analyse/couverture_catalogue/generer_rapports.R b/analyse/couverture_catalogue/generer_rapports.R index 1be3b0ac..f3f40002 100644 --- a/analyse/couverture_catalogue/generer_rapports.R +++ b/analyse/couverture_catalogue/generer_rapports.R @@ -665,7 +665,7 @@ rmarkdown::render("stats_catalogue_generique.Rmd", type_source = NULL, type_voeux= "parcoursup", nom_catalogue= "Parcoursup", - afficher_stats_voeux=FALSE, + afficher_stats_voeux=TRUE, stats_catalogue=stats_catalogue_parcoursup_2024_10, nom_catalogue_detail = "Parcoursup - Octobre 2024", lien_drive_catalogue ="https://docs.google.com/spreadsheets/d/1ShIzmTuVb7ZRBqXMlskqrx8OQVSB7N1i/edit?usp=drive_link&ouid=107607241761816962784&rtpof=true&sd=true" diff --git a/analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html b/analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html index 4b1d63b3..801398f8 100644 --- a/analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html +++ b/analyse/couverture_catalogue/parcoursup/parcoursup_10_2024.html @@ -3999,8 +3999,13 @@

Parcoursup

Dernière mise à jour : 29/10/2024

Nombre de formations

-
- +
+ +
+
+

Nombre de voeux émis

+
+
diff --git a/analyse/couverture_catalogue/stats_catalogue_generique.Rmd b/analyse/couverture_catalogue/stats_catalogue_generique.Rmd index 43e74ccf..30d3ebd3 100644 --- a/analyse/couverture_catalogue/stats_catalogue_generique.Rmd +++ b/analyse/couverture_catalogue/stats_catalogue_generique.Rmd @@ -55,7 +55,7 @@ if(!is.null(params$stats_catalogue)){ dt_header <- stats_catalogue$stats_catalogue_partenaire %>% mutate_all(replace_na,0) %>% - mutate_at(vars(4:length(.)),as.numeric) %>% + mutate_at(vars(5:length(.)),as.numeric) %>% mutate_at(vars(`Part du catalogue`,contains("(%)")),scales::percent,accuracy=0.1) %>% slice(-nrow(.)) @@ -92,7 +92,7 @@ datatable(dt_header, if(params$afficher_stats_voeux){ dt_header <- stats_catalogue$stats_catalogue_partenaire_voeux %>% mutate_all(replace_na,0) %>% - mutate_at(vars(4:length(.)),as.numeric) %>% + mutate_at(vars(5:length(.)),as.numeric) %>% mutate_at(vars(`Part du catalogue`,contains("(%)")),scales::percent,accuracy=0.1) %>% slice(-nrow(.))