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

2023-02-10 15:37:01 +01:00
parent c416a850b5
commit 633fb5f953
1 changed files with 7 additions and 1 deletions
@@ -376,8 +376,14 @@ server <- function(input, output) {
        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({