Merge pull request #511 from sneumann/patch-1

Avoid reading in mzTab twice
lgatto · May 5, 2020 · f79847a · f79847a
2 parents f7da589 + 463e91e
commit f79847a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/MzTab.R b/R/MzTab.R
@@ -55,7 +55,7 @@ comments <- function(x) x@Comments
 MzTab <- function(file) {
     file <- file[1]
     lines <- readLines(file)
-    lines <- lines[-grep("^\\s*$", readLines(file))]
+    lines <- lines[-grep("^\\s*$", lines)]
     lines <- lines[nzchar(lines)]
 
     ## Split on the first characters, make sure headers stay in