Ajout tableau Ovalide 1.V.5.EMM

cloture.Rmd

@@ -654,6 +654,21 @@ data_frame(A = c(OvalideP$VATU[is.na(OvalideP$VATU$A), 3:5] %>% unlist,
 <sup>3</sup>*Données issues des tableaux OVALIDE [2.V.VCCAM] de `r periode`*  
 <sup>4</sup>*Données issues des tableaux OVALIDE [2.V.VNGAP] de `r periode`*  
 
+## Évolution des montants mensuels par période de transmission 
+```{r tab14b}
+Ovalide$EMM %>%
+  filter(A %in% c("Total", mois_label)) %>%
+  select(-A) %>%
+  setNames(mois_label[1:(length(Ovalide$EMM) - 1)]) %>%
+  purrr::map_df(~stringr::str_replace(., ",", ".")) %>%
+  purrr::map_df(as.numeric) %>%
+  datatable(escape = F,
+            extensions = "Buttons",
+            rownames = c(mois_label[1:(nrow(.) - 1)], "Total")) %>%
+  formatCurrency(T, currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",")
+```
+*Données issues du tableau OVALIDE [1.V.5.EMM] GHS (hors dialyse) + suppléments de `r renderText(periode())`*
+
 ## Nombre de Suppléments valorisés, Performance et Valorisation des séjours non envoyés
 ```{r tab15}
 OvalideP$UMAS %>%

functionsOvalide.R

@@ -38,7 +38,7 @@ extractOvalide <- function(annee, mois, table, subtable = "")
       str_replace_all("\\.<\\/td>", "<\\/td>") %>%
       str_replace_all("&nbsp;", " ") %>%
       read_html %>%
-      html_table(trim = T, dec = ",") %>%
+      html_table(trim = T, dec = ",", fill = T) %>%
       .[[1]]
   }
 }

index.rmd

@@ -1007,6 +1007,25 @@ DT::renderDataTable({
 <sup>3</sup>*Données issues des tableaux OVALIDE [2.V.VCCAM] de `r renderText(periode())`*  
 <sup>4</sup>*Données issues des tableaux OVALIDE [2.V.VNGAP] de `r renderText(periode())`*  
 
+#### Évolution des montants mensuels par période de transmission 
+```{r tab14b}
+DT::renderDataTable({
+  req(Ovalide())
+
+  Ovalide()$EMM %>%
+    filter(A %in% c("Total", mois_label)) %>%
+    select(-A) %>%
+    setNames(mois_label[1:(length(Ovalide()$EMM) - 1)]) %>%
+    purrr::map_df(~stringr::str_replace(., ",", ".")) %>%
+    purrr::map_df(as.numeric) %>%
+    datatable(escape = F,
+              extensions = "Buttons",
+              rownames = c(mois_label[1:(nrow(.) - 1)], "Total")) %>%
+    formatCurrency(T, currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",")
+})
+```
+*Données issues du tableau OVALIDE [1.V.5.EMM] GHS (hors dialyse) + suppléments de `r renderText(current())`*
+
 #### Nombre de Suppléments valorisés, Performance et Valorisation des séjours non envoyés
 ```{r tab15}
 DT::renderDataTable({

listOvalide.csv

@@ -9,4 +9,5 @@ VCCAM;2.V.VCCAM;
 VNGAP;2.V.VNGAP;
 UMAS;1.V.1.UMAS;E
 SVB;1.V.1.SV;B
-EDMS;1.D.2.EDMS
+EDMS;1.D.2.EDMS;
+EMM;1.V.5.EMM;