Corretgir error.

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 = " ")
       }