diff --git a/internals.R b/internals.R
index f64c46fab8a264c070563ef342c402feaf350f24..a39924b27e08464260657a51ccf31468883926c8 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)
   }