From be29b3309d51329befcc6020d198bcd311db6e3d Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Fri, 27 Jan 2023 12:56:28 +0100
Subject: [PATCH] =?UTF-8?q?Cambio=20de=20=C3=B3rden=20en=20las=20columnas?=
 =?UTF-8?q?=20del=20template.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/invivos/app.R b/invivos/app.R
index bc56f91..e582248 100755
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -323,9 +323,9 @@ server <- function(input, output) {
         
         template<-data.frame(
           Cage=rep(LETTERS[1:ncages], each=nrat_cage*as.numeric(input$ntumors)),
+          Animal=rep(1:(nrat_cage*ncages), each=as.numeric(input$ntumors)),
           Date="",
           DayPostInoc="",
-          Animal=rep(1:(nrat_cage*ncages), each=as.numeric(input$ntumors)),
           Group="",
           Side=rep(id_tumors, nrat_cage*ncages),
           Weight="",