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

read_excel

parent 5511da30
...@@ -19,10 +19,9 @@ ...@@ -19,10 +19,9 @@
## Happy path: excel version ## Happy path: excel version
if (input$CSVsep == "excel") { if (input$CSVsep == "excel") {
## For efficiency and consistency, maybe replace with readr::read_xl sdf <- as.data.frame(readxl::read_excel(input$fileMeta$datapath))
sdf <- RcmdrMisc::readXL(input$fileMeta$datapath, row.names(sdf) <- sdf[, 1]
rownames = TRUE, sdf <- sdf[, -1]
header = TRUE)
sdf$SampleID <- rownames(sdf) sdf$SampleID <- rownames(sdf)
return(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