marcelcosta/invivos
1
0
Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

Corretgir error.

Browse Source
This commit is contained in:
marcelcosta
2022-11-18 15:48:20 +01:00
parent 5c9e525517
commit 3959731ebb
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+1 -1
View File
@@ -109,7 +109,7 @@ server <- function(input, output) {
taula["Volume"]<-taula$`TS-Deep`*taula$`TS-Length`*taula$`TS-Width`*pi/6 taula["Volume"]<-taula$`TS-Deep`*taula$`TS-Length`*taula$`TS-Width`*pi/6
} }
dades$taula<-taula 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){ if (readxl::excel_sheets(input$file_sizes$datapath) %>% length > 2){
dades$sex<-read.xlsx(input$file_sizes$datapath, sheet = 3, sep.names = " ") dades$sex<-read.xlsx(input$file_sizes$datapath, sheet = 3, sep.names = " ")
} }