|
|
@@ -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 |
|
|
|