Corregir que al exportar randomización mantenga "Abs" en columnas si era así en el original.

invivos/app.R

@@ -338,6 +338,9 @@ server <- function(input, output) {
           arrange(DayPostInoc, Animal, Side) %>% 
           select(Animal, Date, DayPostInoc, Group, Side, 
                  Weight, Long, Wide, Volume, Observations)
+        if ("Abs" %in% colnames(read.xlsx(input$file_sizes$datapath, sheet = 1, check.names = F, sep.names = " ", detectDates = T,cols=1:11))){
+          dtemplate<-rename(dtemplate, "Abs"="Volume")
+        }
       }else{
         
         template<-data.frame(