Primer paso migracion a columna única para ID.Animal.

invivos/app.R

@@ -379,6 +379,7 @@ server <- function(input, output) {
         table[i,"Volume"]<-sum(sapply(1:length(long), function(x) (long[x]*wide[x]*wide[x])*(pi/6)))
       }
       table$Volume<-as.numeric(table$Volume)
+      table$Animal<-paste0(table$Cage, table$Animal)
       
       ## Autocompletado de grupo
       table_group<-merge(
@@ -435,6 +436,8 @@ server <- function(input, output) {
       observeEvent(analysis$taula, {})
       table<-analysis$taula
       
+      table$Animal<-paste0(table$Cage, table$Animal)
+      print(table)
       animals<-unique(table$Animal)
       sides<-unique(table$Side)
       groups<-table %>% select(Animal, Group) %>% unique() %>% pull(Group)
@@ -512,6 +515,7 @@ server <- function(input, output) {
       observeEvent(analysis$taula, {})
       table<-analysis$taula
       
+      table$Animal<-paste0(table$Cage, table$Animal)
       animals<-unique(table$Animal)
       sides<-unique(table$Side)
       groups<-table %>% select(Animal, Group) %>% unique() %>% pull(Group)