|
|
@@ -34,7 +34,21 @@ options(DT.options = list(paging = F, |
|
|
|
|
|
|
|
## Chargement des données |
|
|
|
|
|
|
|
Le fichier d'exhaustivité doit être fourni au format CSV avec les paramètres suivants : |
|
|
|
|
|
|
|
* séparateur de champs = , |
|
|
|
* guillemets = " |
|
|
|
* encodage = UTF-8 |
|
|
|
* séparateur de décimales = , |
|
|
|
|
|
|
|
et doit être issu de la [requête suivante](https://livenne.chu-nancy.fr/shiny_files/cloture/exhaustivite.wid), exécutée le jour de la cloture. |
|
|
|
|
|
|
|
```{r data} |
|
|
|
if (!dir.exists("/var/www/html/shiny_files/cloture")) |
|
|
|
dir.create("/var/www/html/shiny_files/cloture") |
|
|
|
|
|
|
|
file.copy("exhaustivite.wid", "/var/www/html/shiny_files/cloture", overwrite = T) -> null |
|
|
|
|
|
|
|
inputPanel( |
|
|
|
numericInput("annee", "Année", Sys.Date() %>% year), |
|
|
|
numericInput("mois", "Mois", Sys.Date() %>% month - 1) |
|
|
|