diff --git a/invivos/app.R b/invivos/app.R index 243cd29..0016243 100755 --- a/invivos/app.R +++ b/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 = " ") } })