Remove on.exit as connections autoclose

marencc · Mar 5, 2021 · c8be04b · c8be04b
1 parent 82e843b
commit c8be04b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/preprocessing.R b/R/preprocessing.R
@@ -1094,8 +1094,8 @@ ReadMtx <- function(
         stop(err, call. = FALSE)
       }
       if (file_ext(uri) == 'gz') {
-        uri <- gzcon(con = url(description = uri), text = TRUE)
-        on.exit(expr = close(con = uri), add = TRUE)
+        con <- url(description = uri)
+        uri <- gzcon(con = con, text = TRUE)
       }
     }
     all.files[[i]] <- uri