From 633fb5f953e404b8a06a57ec4fdb6458902d3275 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Fri, 10 Feb 2023 15:37:01 +0100
Subject: [PATCH] =?UTF-8?q?Implementar=20la=20pesta=C3=B1a=20para=20selecc?=
 =?UTF-8?q?ionar=20orden=20y=20aparici=C3=B3n=20de=20grupos.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/invivos/app.R b/invivos/app.R
index a9a2f47..85022d9 100755
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -375,9 +375,15 @@ server <- function(input, output) {
       ) %>% relocate(Group, .after = DayPostInoc) %>% 
         relocate(Cage, .before = Animal) %>% 
         arrange(DayPostInoc, Animal, Side)
+      
+      if("Groups" %in% readxl::excel_sheets(input$file_analy$datapath)){
+        levels<-read.xlsx(input$file_analy$datapath, sheet = "Groups", colNames=F)[,1]
+        print(levels)
+        table$Group<-factor(table$Group, levels=levels)
+        table<-filter(table, !is.na(Group))
+      }
 
       analysis$taula<-table
-      print(table)
     }
   })
   output$cutoffUI<-renderUI({