parser: use data.table::fread instead of kmisc::readlines as it is no…

… longer available in cran
loosolab · Apr 3, 2018 · 3eb6787 · 3eb6787
1 parent 48867f1
commit 3eb6787
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -34,7 +34,6 @@ Imports: shiny,
     gplots,
     reshape,
     rintrojs,
-    Kmisc,
     webshot,
     RJSONIO,
     ggrepel (>= 0.6.12),

diff --git a/R/parser.R b/R/parser.R
@@ -303,7 +303,7 @@ parser <- function(file, dec = ".") {
   message(paste("Parsing file:", file))
 
   #number of rows for each part
-  file.lines <- Kmisc::readlines(file)
+  file.lines <- data.table::fread(file, header = FALSE, fill = TRUE, select = 1)[[1]]
   num.header <- length(grep("^!", file.lines))
   num.metadata <- length(grep("^#", file.lines))