Code de génération du rapport dans un chunk isolé

index.rmd

@@ -270,21 +270,6 @@ exhau <- reactive({
                })
 })
 
-output$report <- downloadHandler(filename = "bilan.html",
-                                 content = function(file)
-                                 {
-                                   rmarkdown::render("cloture.Rmd",
-                                                     output_file = file,
-                                                     params = list(annee = input$annee,
-                                                                   mois = input$mois,
-                                                                   rum = rum(),
-                                                                   rss = rss(),
-                                                                   exhau = exhau(),
-                                                                   exhau_pims = exhau_pims(),
-                                                                   Ovalide = tibble::data_frame(nom = names(Ovalide()), tab = Ovalide()),
-                                                                   OvalideP = tibble::data_frame(nom = names(OvalideP()), tab = OvalideP())))
-                                 })
-
 mois_label <- c("Janvier",
                 "Février",
                 "Mars",
@@ -318,6 +303,23 @@ periode <- reactive({
 
 ```
 
+```{r report}
+output$report <- downloadHandler(filename = "bilan.html",
+                                 content = function(file)
+                                 {
+                                   rmarkdown::render("cloture.Rmd",
+                                                     output_file = file,
+                                                     params = list(annee = input$annee,
+                                                                   mois = input$mois,
+                                                                   rum = rum(),
+                                                                   rss = rss(),
+                                                                   exhau = exhau(),
+                                                                   exhau_pims = exhau_pims(),
+                                                                   Ovalide = tibble::data_frame(nom = names(Ovalide()), tab = Ovalide()),
+                                                                   OvalideP = tibble::data_frame(nom = names(OvalideP()), tab = OvalideP())))
+                                 })
+```
+
 ## Rapport
 
 ### Production