From 80362a28db1fd00d11d021b61e4e414d95dc5f75 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Mon, 4 Dec 2023 12:14:25 +0100
Subject: [PATCH] =?UTF-8?q?Primer=20paso=20migracion=20a=20columna=20?=
 =?UTF-8?q?=C3=BAnica=20para=20ID.Animal.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/invivos/app.R b/invivos/app.R
index 309527d..61772a7 100755
--- a/invivos/app.R
+++ b/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)