add gc to readMSData2 - (hopefully) closes #151

lgatto · Aug 15, 2016 · 3db3831 · 3db3831
1 parent a7f91ae
commit 3db3831
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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)