From 9ec4cdc0ee00b1613882cb78919fefc079e9407c Mon Sep 17 00:00:00 2001
From: Juliette Engelaere-Lefebvre
<juliette.engelaere@developpement-durable.gouv.fr>
Date: Wed, 11 Sep 2024 17:26:58 +0200
Subject: [PATCH] =?UTF-8?q?fix=20typo=20dans=20annexes=20d=C3=A9partementa?=
=?UTF-8?q?les=20au=20niveau=20des=20graphiques=20de=20dsitribution=20des?=
=?UTF-8?q?=20installations=20selon=20leur=20ration?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
5-rapport_bilans_annuels_metha/06-annexes.Rmd | 10 +++++-----
99-Tout_a_la_suite.R | 11 ++++++-----
2 files changed, 11 insertions(+), 10 deletions(-)
diff --git a/5-rapport_bilans_annuels_metha/06-annexes.Rmd b/5-rapport_bilans_annuels_metha/06-annexes.Rmd
index c17b82b..7f65cfc 100644
--- a/5-rapport_bilans_annuels_metha/06-annexes.Rmd
+++ b/5-rapport_bilans_annuels_metha/06-annexes.Rmd
@@ -298,7 +298,7 @@ cat(" ")
girafe(ggobj = creer_graph_age_installations_repondante(zone = ter[i])) # ajouter interactivité
cat(" ")
# à mettre en annexe après les graphes qui existent déjà sur les installations)
-creer_graph_distrib_ration("44")
+creer_graph_distrib_ration(ter[i])
cat(" ")
creer_camembert(dep = ter[i])
cat(" ")
@@ -322,7 +322,7 @@ cat(" ")
creer_graph_age_installations_repondante(zone = ter[i]) # ajouter interactivité
cat(" ")
# à mettre en annexe après les graphes qui existent déjà sur les installations)
-creer_graph_distrib_ration("44")
+creer_graph_distrib_ration(ter[i])
cat(" ")
creer_camembert(dep = ter[i])
cat(" ")
@@ -346,7 +346,7 @@ cat(" ")
creer_graph_age_installations_repondante(zone = ter[i]) # ajouter interactivité
cat(" ")
# à mettre en annexe après les graphes qui existent déjà sur les installations)
-creer_graph_distrib_ration("44")
+creer_graph_distrib_ration(ter[i])
cat(" ")
creer_camembert(dep = ter[i])
cat(" ")
@@ -371,7 +371,7 @@ cat(" ")
creer_graph_age_installations_repondante(zone = ter[i]) # ajouter interactivité
cat(" ")
# à mettre en annexe après les graphes qui existent déjà sur les installations)
-creer_graph_distrib_ration("44")
+creer_graph_distrib_ration(ter[i])
cat(" ")
creer_camembert(dep = ter[i])
cat(" ")
@@ -396,7 +396,7 @@ cat(" ")
creer_graph_age_installations_repondante(zone = ter[i]) # ajouter interactivité
cat(" ")
# à mettre en annexe après les graphes qui existent déjà sur les installations)
-creer_graph_distrib_ration("44")
+creer_graph_distrib_ration(ter[i])
cat(" ")
creer_camembert(dep = ter[i])
cat(" ")
diff --git a/99-Tout_a_la_suite.R b/99-Tout_a_la_suite.R
index da7423f..69fc06f 100644
--- a/99-Tout_a_la_suite.R
+++ b/99-Tout_a_la_suite.R
@@ -1,6 +1,6 @@
# tout à la suite - HTML
rm(list = ls())
-campagne <- "2022"
+campagne <- "2023"
rmarkdown::render(input = "0_donnees_ref_palettes.Rmd",
output_file = paste0("compilation/", Sys.Date(), "-0_donnees_externes_", campagne, ".html"))
@@ -14,8 +14,10 @@ rmarkdown::render(input = "2_redressement_reponses.Rmd",
rmarkdown::render(input = "4_intrants_valo.Rmd",
output_file = paste0("compilation/", Sys.Date(), "-4_intrants_valo_", campagne, ".html"))
-rmarkdown::render(input = "5_Rapport.Rmd",
- output_file = paste0("compilation/", Sys.Date(), "-5_rapport_", campagne, ".html"))
+# rmarkdown::render(input = "5_Rapport.Rmd",
+# output_file = paste0("compilation/", Sys.Date(), "-5_rapport_", campagne, ".html"))
+
+bookdown::render_book(input = "5-rapport_bilans_annuels_metha/")
# Tout à la suite PDF
http_proxy <- Sys.getenv("http_proxy")
@@ -24,7 +26,6 @@ Sys.unsetenv("https_proxy")
pagedown::chrome_print(input = paste0("compilation/", Sys.Date(), "-4_intrants_valo_", campagne, ".html"),
output = paste0("compilation/", Sys.Date(), "-4_intrants_valo_", campagne, ".pdf"))
-pagedown::chrome_print(input = paste0("compilation/", Sys.Date(), "-5_rapport_", campagne, ".html"),
- output = paste0("compilation/", Sys.Date(), "-5_rapport_", campagne, ".pdf"))
+
Sys.setenv(http_proxy = http_proxy)
Sys.setenv(https_proxy = http_proxy)
--
GitLab