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

read_excel

No related merge requests found
Showing with 3 additions and 4 deletions
+3 -4
......@@ -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)
}
......
Supports Markdown
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