From 724077f974c1cd615f52d1770472a68f6f707b05 Mon Sep 17 00:00:00 2001
From: yun <yunyunpp96@outlook.com>
Date: Mon, 31 Jul 2023 17:28:42 +0800
Subject: [PATCH] revert to use data.table fread directly

---
 R/utils.R | 36 ------------------------------------
 1 file changed, 36 deletions(-)

diff --git a/R/utils.R b/R/utils.R
index 25b32a0..f0d292d 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -57,42 +57,6 @@ column_to_rownames <- function(.data, var) {
 }
 
 read_lines <- function(file) {
-    tmpdir <- tempdir()
-    FUN <- NULL
-    if (endsWith(file, ".tar")) {
-        FUN <- utils::untar
-    } else if (endsWith(file, ".zip")) {
-        FUN <- utils::unzip
-    }
-    if (!is.null(FUN)) {
-        fnames <- FUN(file, list = TRUE)
-        if (inherits(fnames, "data.frame")) {
-            fnames <- fnames[[1L]]
-        }
-        if (length(fnames) > 1L) {
-            cli::cli_abort("Compressed files containing more than 1 file are currently not supported.")
-        }
-        FUN(file, exdir = tmpdir)
-        decompFile <- file.path(tmpdir, fnames)
-        file <- decompFile
-        on.exit(unlink(decompFile), add = TRUE)
-    } else {
-        if (endsWith(file, ".gz")) {
-            FUN <- gzfile
-        } else if (endsWith(file, ".bz2")) {
-            FUN <- bzfile
-        } else if (endsWith(file, ".xz") || endsWith(file, ".lzma")) {
-            FUN <- xzfile
-        }
-        if (!is.null(FUN)) {
-            decompFile <- tempfile(tmpdir = tmpdir)
-            R.utils::decompressFile(file, decompFile,
-                ext = NULL, FUN = FUN, remove = FALSE
-            )
-            file <- decompFile
-            on.exit(unlink(decompFile), add = TRUE)
-        }
-    }
     data.table::fread(
         file = file, sep = "", header = FALSE,
         colClasses = "character",