Question

R中的以下代码返回一个数据框，其中包括文件名，解压缩的长度（以字节为单位）和日期（不提取文件）。

unzip(path_to_zip, list  = T)

我想知道如何提取打包（压缩）文件的大小或者每个文件的压缩率。

我使用的是Windows 7机器。

谢谢！

Answer 1

使用unzip() 函数，您不能：默认情况下，它使用内部C函数来执行它的功能，仅此而已。但是，它可以使用外部可执行文件，并且允许详细信息（使用-v）。要使用此功能，您需要修改R的unzip()功能。这个答案的其余部分是练习＆＃34;使用源，luke＆＃34; ，表明当前功能可以在需要时扩展。

unzip2 <- function (zipfile, files = NULL, list = FALSE, list.verbose = FALSE, overwrite = TRUE, 
                    junkpaths = FALSE, exdir = ".", unzip = "internal", setTimes = FALSE) {
    if (identical(unzip, "internal")) {
        if (!list && !missing(exdir)) 
            dir.create(exdir, showWarnings = FALSE, recursive = TRUE)
        res <- .External(utils:::C_unzip, zipfile, files, exdir, list, 
            overwrite, junkpaths, setTimes)
        if (list) {
            dates <- as.POSIXct(res[[3]], "%Y-%m-%d %H:%M", tz = "UTC")
            data.frame(Name = res[[1]], Length = res[[2]], Date = dates, 
                stringsAsFactors = FALSE)
        }
        else invisible(attr(res, "extracted"))
    }
    else {
        WINDOWS <- .Platform$OS.type == "windows"
        if (!is.character(unzip) || length(unzip) != 1L || !nzchar(unzip)) 
            stop("'unzip' must be a single character string")
        zipfile <- path.expand(zipfile)
        if (list) {
            dashl <- if (list.verbose) "-lv" else "-l"
            res <- if (WINDOWS) 
                system2(unzip, c(dashl, shQuote(zipfile)), stdout = TRUE)
            else system2(unzip, c(dashl, shQuote(zipfile)), stdout = TRUE, 
                env = c("TZ=UTC"))
            l <- length(res)
            res2 <- res[-c(1, 3, l - 1, l)]
            con <- textConnection(res2)
            on.exit(close(con))
            z <- read.table(con, header = TRUE, as.is = TRUE)
            dt <- paste(z$Date, z$Time)
            formats <- if (max(nchar(z$Date) > 8)) 
                c("%Y-%m-%d", "%d-%m-%Y", "%m-%d-%Y")
            else c("%m-%d-%y", "%d-%m-%y", "%y-%m-%d")
            slash <- any(grepl("/", z$Date))
            if (slash) 
                formats <- gsub("-", "/", formats)
            formats <- paste(formats, "%H:%M")
            for (f in formats) {
                zz <- as.POSIXct(dt, tz = "UTC", format = f)
                if (all(!is.na(zz))) 
                  break
            }
            z[, "Date"] <- zz
            z <- z[, colnames(z) != "Time"]
            nms <- c("Name", "Length", "Date")
            z[, c(nms, setdiff(colnames(z), nms))]
        }
        else {
            args <- c("-oq", shQuote(zipfile))
            if (length(files)) 
                args <- c(args, shQuote(files))
            if (exdir != ".") 
                args <- c(args, "-d", shQuote(exdir))
            system2(unzip, args, stdout = NULL, stderr = NULL, 
                invisible = TRUE)
            invisible(NULL)
        }
    }
}

在此，我修改了行：1（参数），6（utils:::），21-25（dashl），45并添加了46-47（列选择）。其余部分来自原始的R unzip函数。

默认情况下，unzip2的行为与unzip完全相同，这意味着它无法满足您的需求。为了得到您想要的结果，您需要（a）告诉它外部unzip.exe所在的位置，并且（b）告诉它您希望它是详细的。（可以随意修改上述定义以更改默认值。）

请注意，在Windows上，默认情况下通常不会安装unzip.exe。它包含在Rtools，Git-for-Windows和msys2中。您可能需要更多努力来确保Sys.which("unzip")找到可执行文件。

这使用（默认）内部C函数，这意味着不能再有了。

unzip2("~/bashdotfiles.zip", list = TRUE)
#            Name Length                Date
# 1 .bash_history   8269 2017-02-20 03:31:00
# 2  .bash_logout    220 2016-04-22 22:36:00
# 3       .bashrc   3771 2016-04-22 22:36:00

这使用外部可执行文件，功能相同（虽然注意日期因内部UTC转换而有所不同......这可以通过更多的努力来解决）。

unzip2("~/bashdotfiles.zip", list = TRUE, unzip = Sys.which("unzip"))
#            Name Length                Date
# 1 .bash_history   8269 2017-02-20 11:31:00
# 2  .bash_logout    220 2016-04-23 05:36:00
# 3       .bashrc   3771 2016-04-23 05:36:00

最后，增强列表：

unzip2("~/bashdotfiles.zip", list = TRUE, list.verbose = TRUE, unzip = Sys.which("unzip"))
#            Name Length                Date Method Size Cmpr   CRC.32
# 1 .bash_history   8269 2017-02-20 11:31:00 Defl:N 2717  67% 99c8d736
# 2  .bash_logout    220 2016-04-23 05:36:00 Defl:N  158  28% 6ce3189b
# 3       .bashrc   3771 2016-04-23 05:36:00 Defl:N 1740  54% ab254644

如何使用R读取zip存档中打包文件的大小

1 个答案: