From 790cb9e0d151cd07d8c80cb383bce79ab53be7e3 Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Thu, 13 Apr 2017 16:24:19 +0200
Subject: [PATCH] =?UTF-8?q?Code=20de=20g=C3=A9n=C3=A9ration=20du=20rapport?=
 =?UTF-8?q?=20dans=20un=20chunk=20isol=C3=A9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 index.rmd | 32 +++++++++++++++++---------------
 1 file changed, 17 insertions(+), 15 deletions(-)

diff --git a/index.rmd b/index.rmd
index 20a66d5..272bbc7 100644
--- a/index.rmd
+++ b/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