r - 如何使用 R 以编程方式提取/解压缩 .7z (7-zip) 文件

Question

我正在尝试自动提取许多使用 7-zip 压缩的文件。我需要自动化此过程，因为 a) 我想要解锁多年的数据，b) 我想与其他人共享我的代码并防止他们手动重复该过程。

我的计算机上安装了 WinRAR 和 7-zip，我可以使用任一程序轻松地单独打开这些文件。

我查看了 unzip untar 和 unz 命令，但我不相信它们中的任何一个都能满足我的需要.

我对压缩一无所知，但如果它有什么区别的话:每个文件仅包含一个文件，并且它只是一个文本文件。

我强烈希望有一种解决方案，不需要用户安装额外的软件(例如 WinRAR 或 7-Zip)并使用 shell 执行命令，尽管我承认此任务可能无法完成只是 R 和 CRAN 包。我实际上相信使用附加参数对这些文件运行 shell.exec 可能会在安装了 WinRAR 的计算机上运行，​​但同样，如果可能的话，我想避免这种安装。 :)

运行下面的代码将加载我尝试提取的文件 - files.data 中的 .7z 文件是需要解锁的文件。

# create a temporary file and temporary directory, download the file, extract the file to the temporary directory
tf <- tempfile() ; td <- tempdir()
file.path <- "ftp://ftp.ibge.gov.br/Orcamentos_Familiares/Pesquisa_de_Orcamentos_Familiares_2008_2009/Microdados/Dados.zip"
download.file( file.path , tf , mode = "wb" )
files.data <- unzip( tf , exdir = td )

# how do i unzip ANY of these .7z files?
files.data

谢谢!!! :)

Answer 1

这可以通过 archive package 来完成。

library(archive)
tf <- tempfile() ; td <- tempdir()
file.path <- "ftp://ftp.ibge.gov.br/Orcamentos_Familiares/Pesquisa_de_Orcamentos_Familiares_2008_2009/Microdados/Dados.zip"
download.file( file.path , tf , mode = "wb" )
archive(tf)

参见https://github.com/jimhester/archive