En análisis, coger sólo las 11 primeras columnas.

invivos/app.R

@@ -354,7 +354,7 @@ server <- function(input, output) {
   analysis$taula_vol<-NULL
   observe({
     if (!is.null(input$file_analy)){ 
-      table<-read.xlsx(input$file_analy$datapath, sheet = 1, check.names = F, sep.names = " ", detectDates = T)
+      table<-read.xlsx(input$file_analy$datapath, sheet = 1, check.names = F, sep.names = " ", detectDates = T,cols=1:11)
       if("ID.animal" %in% colnames(table)){
         table<-table %>%
           rename(Animal=`ID.animal`, Side=`ID.tumor`)
@@ -367,7 +367,6 @@ server <- function(input, output) {
           relocate(Side, .after = "Group")
         table$DayPostInoc<-as.numeric(table$DayPostInoc)
       }
-      
       table$Date<-format(table$Date, format="%d/%m/%Y")
       if ("sex" %in% colnames(table)){table<-select(table, -sex)}
       for (i in 1:nrow(table)){