# NOT RUN {
## Some files to zip up
dir.create(tmp <- tempfile())
cat("first file", file = file.path(tmp, "file1"))
cat("second file", file = file.path(tmp, "file2"))
zipfile <- tempfile(fileext = ".zip")
zip(zipfile, tmp)
## List contents
zip_list(zipfile)
## Add another file
cat("third file", file = file.path(tmp, "file3"))
zip_append(zipfile, file.path(tmp, "file3"))
zip_list(zipfile)
# }
Run the code above in your browser using DataLab