From a3eaf3e7a992e3aded244acaff1c1525f94d7800 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Wed, 25 Sep 2024 15:28:10 +0200
Subject: [PATCH] =?UTF-8?q?Corregir=20que=20al=20exportar=20randomizaci?=
 =?UTF-8?q?=C3=B3n=20mantenga=20"Abs"=20en=20columnas=20si=20era=20as?=
 =?UTF-8?q?=C3=AD=20en=20el=20original.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/invivos/app.R b/invivos/app.R
index e82193f..1db5d31 100755
--- a/invivos/app.R
+++ b/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(