a <- system.file(package = "archive", "extdata", "data.zip")
d <- tempfile()
# When called with default arguments extracts all files in the archive.
archive_extract(a, d)
list.files(d)
unlink(d)
# Can also specify one or more files to extract
d <- tempfile()
archive_extract(a, d, c("iris.csv", "airquality.csv"))
list.files(d)
unlink(d)
Run the code above in your browser using DataLab