Amelioration script tout à la suite

99-Tout_a_la_suite.R

 # tout à la suite - HTML
+rm(list = ls())
+campagne <- "2022"
 
 rmarkdown::render(input = "1-lecture_des_reponses.Rmd",
-                  output_file = paste0("compilation/", Sys.Date(), "_lecture_des_reponses", params$campagne, ".html"))
+                  output_file = paste0("compilation/", Sys.Date(), "_lecture_des_reponses_", campagne, ".html"))
 
 rmarkdown::render(input = "2-redressement_reponses.Rmd",
-                  output_file = paste0("compilation/", Sys.Date(), "_redressement_reponses_", params$campagne, ".html"))
+                  output_file = paste0("compilation/", Sys.Date(), "_redressement_reponses_", campagne, ".html"))
 
 rmarkdown::render(input = "4-intrants_valo.Rmd",
-                  output_file = paste0("compilation/", Sys.Date(), "_intrants_valo_", params$campagne, ".html"))
+                  output_file = paste0("compilation/", Sys.Date(), "_intrants_valo_", campagne, ".html"))
 
 rmarkdown::render(input = "5-Rapport.Rmd",
-                  output_file = paste0("compilation/", Sys.Date(), "_rapport_", params$campagne, ".html"))
+                  output_file = paste0("compilation/", Sys.Date(), "_rapport_", campagne, ".html"))
 
 # Tout à la suite PDF
-pagedown::chrome_print(input =  paste0("compilation/", Sys.Date(), "_rapport_", params$campagne, ".html"),
-                       output = paste0("compilation/", Sys.Date(), "_rapport_", params$campagne, ".pdf"))
+pagedown::chrome_print(input =  paste0("compilation/", Sys.Date(), "_rapport_", campagne, ".html"),
+                       output = paste0("compilation/", Sys.Date(), "_rapport_", campagne, ".pdf"))
 
-pagedown::chrome_print(input = paste0("compilation/", Sys.Date(), "_intrants_valo_", params$campagne, ".html"),
-                       output = paste0("compilation/", Sys.Date(), "_intrants_valo_", params$campagne, ".pdf"))
+pagedown::chrome_print(input = paste0("compilation/", Sys.Date(), "_intrants_valo_", campagne, ".html"),
+                       output = paste0("compilation/", Sys.Date(), "_intrants_valo_", campagne, ".pdf"))