Cambio de órden en las columnas del template.

2023-01-27 12:56:28 +01:00
parent 11f3a57014
commit be29b3309d
1 changed files with 1 additions and 1 deletions
@@ -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="",