read_excel

226dc4d6 · Midoux Cedric · 5511da30 · 226dc4d6
Commit 226dc4d6 authored 6 years ago by Midoux Cedric
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 4 deletions
+3 -4
--- a/internals.R
+++ b/internals.R
@@ -19,10 +19,9 @@
  ## Happy path: excel version
  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)
    return(sdf)
  }