From 226dc4d6e021bc55fb3c461096ddd5e304c1fa24 Mon Sep 17 00:00:00 2001
From: Cedric Midoux <cedric.midoux@inra.fr>
Date: Tue, 4 Sep 2018 14:58:08 +0200
Subject: [PATCH] read_excel
---
internals.R | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/internals.R b/internals.R
index f64c46f..a39924b 100644
--- 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 <- 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)
}
--
GitLab