|
|
@@ -119,11 +119,11 @@ mois_label <- c("Janvier", |
|
|
|
``` |
|
|
|
|
|
|
|
```{r report} |
|
|
|
observeEvent(input$report, |
|
|
|
observeEvent(input$report, |
|
|
|
{ |
|
|
|
rmarkdown::render("CRHAP.Rmd", output_file = "/var/www/html/cloture/crhap.html", params = list(CRH = CRH(), CRH_seance = CRH_seance(), CRH_sans_seance = CRH_sans_seance())) |
|
|
|
|
|
|
|
showModal(modalDialog(title = "Publication", "Fichier disponible à l'adresse suivante : https://livenne.chu-nancy.fr/sitedim/index.php/clot/presence-crh", easyClose = T)) |
|
|
|
showModal(modalDialog(title = "Publication", p("Fichier disponible", a("ici", href = "https://livenne.chu-nancy.fr/sitedim/index.php/clot/presence-crh")), easyClose = T, footer = NULL)) |
|
|
|
}) |
|
|
|
``` |
|
|
|
|
|
|
|