Commit 226dc4d6 authored by Midoux Cedric's avatar Midoux Cedric

read_excel

parent 5511da30
......@@ -19,10 +19,9 @@
## Happy path: excel version
if (input$CSVsep == "excel") {
## For efficiency and consistency, maybe replace with readr::read_xl
sdf <- RcmdrMisc::readXL(input$fileMeta$datapath,
rownames = TRUE,
header = TRUE)
sdf <- as.data.frame(readxl::read_excel(input$fileMeta$datapath))
row.names(sdf) <- sdf[, 1]
sdf <- sdf[, -1]
sdf$SampleID <- rownames(sdf)
return(sdf)
}
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment