diff --git a/5-rapport_bilans_annuels_metha/06-annexes.Rmd b/5-rapport_bilans_annuels_metha/06-annexes.Rmd index c17b82bc869dcbb0214bfa0e40eed40e291ab021..7f65cfce8dd1f3beb8b7af48b78072dd0aeff0c6 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 da7423fb6d075bd492dcc086bff690c7ec6be0aa..69fc06f7aa348fa1f7ee92f4e010e76061b7a12c 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)