Cambio de órden en las columnas del template.

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="",