corrección importar grupos.

invivos/app.R

@@ -103,7 +103,7 @@ server <- function(input, output) {
         taula["Volume"]<-((taula$Major*taula$Minor*taula$Minor)*(pi/6))
       }
       dades$taula<-taula
-      dades$groups<-read.xlsx(input$file_sizes$datapath, sheet = 2)[,1]
+      dades$groups<-read.xlsx(input$file_sizes$datapath, sheet = 2, colName=F)[,1]
       dades$sex<-read.xlsx(input$file_sizes$datapath, sheet = 3, sep.names = " ")
     }
   })