zip_file <- "data.zip"
# An archive to unpack
dir.create("data")
writeLines("Line 1", "data/file.txt")
zip(zip_file, "data", extras = "-q")
# Returns the paths of the extracted files
files <- unzip(zip_file, exdir = "tmp")
# files = tmp/data/file.txt
cat("files =", files, "\n")