Column ordering in the last tab. No more self contained.

cloture.Rmd

@@ -4,7 +4,6 @@ output:
   html_document:
     toc: true
     toc_float: true
-    self_contained: false
 ---
 
 ```{r init, echo = F, message = F}
@@ -721,10 +720,10 @@ if (nrow(Ovalide$EDMS) == 6)
   IP_previous <- OvalideP$EDMS[[1, 2]] / OvalideP$EDMS[[2, 2]]
 }
 
-data_frame(IP_current, IP_previous) %>%
+data_frame(IP_previous, IP_current) %>%
   datatable(rownames = "Indice de performance",
             extensions = "Buttons",
-            colnames = c(current, previous)) %>%
+            colnames = c(previous, current)) %>%
   formatCurrency(1:2, currency = "", digits = 3, dec.mark = ",")
 
 rm(IP_previous, IP_current)