file connection correctly closed in detectInfusionScans

aberHRML · Feb 17, 2021 · b18247a · b18247a
1 parent 907499a
commit b18247a
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/R/detect.R b/R/detect.R
@@ -20,9 +20,15 @@ detectInfusionScans <- function(files,
 
 	ms <- files %>%
 		future_map(~{
-			.x %>%
-				openMSfile() %>%
+			ms <- .x %>%
+				openMSfile()
+
+			file_header <- ms %>%
 				header()
+
+			close(ms)
+
+			return(file_header)
 		}) %>%
 		set_names(files)