Évolution dans tableaux SVA et VSS

cloture.Rmd

@@ -466,20 +466,26 @@ rss %>%
 ```{r tab10}
 Ovalide$SVA %>%
   full_join(OvalideP$SVA, by = "A") %>%
+  mutate(D = C.x - C.y,
+         E = (C.x - C.y) / C.y) %>%
 
   datatable(rownames = F,
             escape = F,
             container = htmltools::withTags(table(class = 'display',
                                                   thead(tr(th(rowspan = 2, "RSA"),
                                                            th(colspan = 2, current),
-                                                           th(colspan = 2, previous)),
+                                                           th(colspan = 2, previous),
+                                                           th(colspan = 2, "Évolution")),
                                                         tr(th("Effectif"),
                                                            th("Montant BR"),
                                                            th("Effectif"),
-                                                           th("Montant BR"))
+                                                           th("Montant BR"),
+                                                           th("€"),
+                                                           th("%"))
                                                         )
                                                   ))) %>%
-  formatCurrency(c(3,5), currency = "", interval = 3, mark = " ", digits = 2, dec.mark = ",")
+  formatCurrency(c(3,5,6), currency = "", interval = 3, mark = " ", digits = 2, dec.mark = ",") %>%
+  formatPercentage(7, digits = 2)
 ```
 *Données issues des tableaux OVALIDE [1.V.1.SV] A de `r periode`*
 
@@ -488,20 +494,26 @@ Ovalide$SVA %>%
 ```{r tab11}
 Ovalide$VSS %>% select(1:3) %>%
   full_join(OvalideP$VSS %>% select(1:3), by = "A") %>%
+  mutate(D = C.x - C.y,
+         E = (C.x - C.y) / C.y) %>%
 
   datatable(rownames = F,
             container = htmltools::withTags(table(class = 'display',
                                                   thead(tr(th(rowspan = 2, "Composante"),
                                                            th(colspan = 2, current),
-                                                           th(colspan = 2, previous)),
+                                                           th(colspan = 2, previous),
+                                                           th(colspan = 2, "Évolution")),
                                                         tr(th("Effectif"),
                                                            th("Montant BR"),
                                                            th("Effectif"),
-                                                           th("Montant BR"))
+                                                           th("Montant BR"),
+                                                           th("€"),
+                                                           th("%"))
                                                         )
                                                   )
             )) %>%
-  formatCurrency(c(3,5), currency = "", interval = 3, mark = " ", digits = 2, dec.mark = ",")
+  formatCurrency(c(3,5,6), currency = "", interval = 3, mark = " ", digits = 2, dec.mark = ",") %>%
+  formatPercentage(7, digits = 2)
 ```
 *Données issues des tableaux [1.V.1.VSS] A de `r periode`*