diff --git a/invivos/app.R b/invivos/app.R
index 3a6adb0..0376e6a 100755
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -109,7 +109,7 @@ server <- function(input, output) {
         taula["Volume"]<-taula$`TS-Deep`*taula$`TS-Length`*taula$`TS-Width`*pi/6
       }
       dades$taula<-taula
-      dades$groups<-read.xlsx(input$file_sizes$datapath, sheet = 2, colName=F)[,1]
+      dades$groups<-read.xlsx(input$file_sizes$datapath, sheet = 2, colNames=F)[,1]
       if (readxl::excel_sheets(input$file_sizes$datapath) %>% length > 2){
         dades$sex<-read.xlsx(input$file_sizes$datapath, sheet = 3, sep.names = " ")
       }