Merge pull request #9 from HendrikSchultheis/na

Patch No. 2
loosolab · Apr 3, 2018 · 406eee6 · 406eee6
2 parents 209f7e7 + 3eb6787
commit 406eee6
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 3 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/featureSelector.R b/R/featureSelector.R
@@ -229,7 +229,7 @@ featureSelector <- function(input, output, session, data, features = NULL, featu
                                                           render = DT::JS(
                                                             "function(data, type, row) {",
                                                             paste("var length =", truncate),
-                                                            "return typeof data !== 'number' && type === 'display' && data.length > length ?",
+                                                            "return typeof data !== 'number' && data !== null && type === 'display' && data.length > length ?",
                                                             "'<span title=\"' + data + '\">' + data.substr(0, length) + '...</span>' : data;",
                                                             "}"
                                                           )

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))