From 3db38319bbf737cd8ec8b7b63ec44d9773f538b5 Mon Sep 17 00:00:00 2001
From: Laurent <lg390@cam.ac.uk>
Date: Mon, 15 Aug 2016 14:31:11 +0100
Subject: [PATCH] add gc to readMSData2 - (hopefully) closes #151

---
 R/readMSData2.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/readMSData2.R b/R/readMSData2.R
index b6b8583e0..dc39743f4 100644
--- a/R/readMSData2.R
+++ b/R/readMSData2.R
@@ -46,9 +46,10 @@ readMSData2 <- function(files,
                         centroided = rep(as.logical(NA), nrow(fdData)),
                         smoothed = rep(as.logical(smoothed.), nrow(fdData)),
                         fdData, stringsAsFactors = FALSE)
-        featureDataList <- c(featureDataList, list(fdData))
+        featureDataList <- c(featureDataList, list(fdData))        
         mzR::close(msdata)
         rm(msdata)
+        gc()
     }
     ## new in version 1.9.8
     lockEnvironment(assaydata, bindings = TRUE)