Implementar la pestaña para seleccionar orden y aparición de grupos.

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({