38

I'm trying to automate the extraction of a number of files compressed with 7-zip. I need to automate this process, because a) there are many years of data I'd like to unlock and b) I'd like to share my code with others and prevent them from repeating the process by hand.

I have both WinRAR and 7-zip installed on my computer, and I can individually open these files easily with either program.

I've looked around at the unzip untar and unz commands, but I don't believe any of them do what I need.

I don't know anything about compression, but if it makes any difference: each of these files only contains one file and it's just a text file.

I would strongly prefer a solution that does not require the user to install additional software (like WinRAR or 7-Zip) and execute a command with shell, although I acknowledge this task might be impossible with just R and CRAN packages. I actually believe running shell.exec on these files with additional parameters might work on computers with WinRAR installed, but again, I'd like to avoid that installation if possible. :)

Running the code below will load the files I am trying to extract -- the .7z files in files.data are what needs to be unlocked.

# 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

Thanks!!! :)

3
  • The best solution would be a package that could read and write 7z files using either the standard connection API or via temporary files on disk. But I don't think that package exists.
    – hadley
    Apr 19, 2013 at 12:28
  • 1
    agreed. now i'm petitioning the folks at the brazilian census to follow @dirk's advice and re-post the files with a standard format :) thanks hadley! Apr 19, 2013 at 12:32
  • the example your showing is a pkzip compresse file not a p7 compressed file. So your standard unzip() would work. A related question would be stackoverflow.com/questions/31146263/sys-glob-within-unzip Jun 30, 2015 at 19:22

2 Answers 2

33

This can be done with the 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)

See https://github.com/jimhester/archive

3
26

If you have 7z executable in your path, you can simple use system command

system('7z e -o <output_dir> <archive_name>')

4
  • 3
    Completely misses the requirement of "I would strongly prefer a solution that does not require the user to install additional software". Apr 19, 2013 at 11:19
  • @DirkEddelbuettel but short of doing everything by hand, it's the only thing that works, right? :( Apr 19, 2013 at 11:59
  • 17
    @DirkEddelbuettel ..from what you and hadley are saying, it's the only answer. :( why would i delete the thread? others might also benefit from knowing this task is impossible without installing external software Apr 19, 2013 at 12:35
  • 6
    note that the command is system('7z e -o<output_dir> <archive_name>'). With a space between -o and the directory it fails!
    – 576i
    Nov 3, 2016 at 13:54

Your Answer

Reminder: Answers generated by Artificial Intelligence tools are not allowed on Stack Overflow. Learn more

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.