close file connection for file header retrieval

aberHRML · Feb 17, 2021 · 907499a · 907499a
1 parent eba7578
commit 907499a
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/R/get.R b/R/get.R
@@ -71,9 +71,15 @@ getHeaders <- function(files){
 
     headers <- files %>% 
         future_map(~{
-        .x %>%
-            openMSfile(backend = 'pwiz') %>%
+        ms <- .x %>%
+            openMSfile(backend = 'pwiz') 
+
+        file_header <- ms %>%
             header()
+
+        close(ms)
+
+        return(file_header)
     }) %>%
         set_names(files) %>%
         bind_rows(.id = 'FileName') %>%