Rapport en version paramétrée

cloture.Rmd

@@ -4,15 +4,22 @@ output:
   html_document:
     toc: true
     toc_float: true
+params:
+  annee: NA
+  mois: NA
+  rum: NA
+  rss: NA
+  exhau: NA
+  exhau_pims: NA
+  Ovalide: NA
+  OvalideP: NA
 ---
 
 ```{r init, echo = F, message = F}
+library(tidyverse)
 library(DT)
-library(ggplot2)
 library(knitr)
-library(tidyr)
 library(stringr)
-library(dplyr)
 library(plotly)
 library(lubridate)
 
@@ -27,10 +34,19 @@ options(DT.options = list(paging = F,
                           info = F,
                           dom = "Bfrtip",
                           buttons = c("copy", "excel")))
+
+pdf(NULL)
 ```
 
 ```{r data}
-load("donnees.Rdata")
+Ovalide <- params$Ovalide$tab
+OvalideP <- params$OvalideP$tab
+annee <- params$annee
+mois <- params$mois
+rum <- params$rum
+rss <- params$rss
+exhau <- params$exhau
+exhau_pims <- params$exhau_pims
 
 mois_label <- c("Janvier",
                 "Février",