In kiernann/zippr: Consistent Cross-Platform ZIP Compression

library(knitr)
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)
if (!interactive()) {
  options(width = 99)
}

zippr

The goal of zippr is to provide an alternative to the zip package built on miniz, a cross-platform, lossless, high performance data compression library. The exact functionality of this package is still extremely fluid.

Three main types of changes are being made:

1. Consistently rename all functions with zip_* to avoid masking utils::zip() and utils::unzip(). Match to names like fs::dir_info().
2. Arrange arguments in a consistent order, accepting the primary file paths as the first argument for easy piping with %>%.
3. Return more data (sometimes invisibly) with human-readable tibble data frames and fs class vectors.

Installation

You can install the development version of zippr from GitHub with:

# install.packages("remotes")
remotes::install_github("kiernann/zippr")

Install the release version of zip from CRAN if needed.

install.packages("zip")

Usage

library(magrittr)
library(zippr)
library(fs)

Compressing

zip_create() takes uncompressed files and creates a compressed ZIP archive. Simply supply all directories and files that you want to include in the archive. Arguments have been arranged to accept piped paths.

It makes sense to change to the top-level directory of the files before archiving them, so that the files are stored using a relative path name.

tmp <- dir_ls("R") %>% 
  # pipe paths into zip
  zip_create("sources.zip")

file_info(tmp)[, 1:5]

Directories are added recursively by default.

zip_append() is similar to zip_create(), but it appends files to an existing ZIP archive.

Listing

zip_info() lists files in a ZIP archive. It returns a data frame with human-readable fs columns.

zip_info(tmp)

To get just the file names, use zip_ls(). To get file sizes, use zip_size().

zip_ls(tmp)
zip_size(tmp)

Extracting

zip_extract() uncompresses a ZIP archive to a given directory.

out <- zip_extract(
  zipfile = tmp, 
  exdir = tempdir(), 
  junk_paths = TRUE,
)
file_info(out)[, 1:5]

file_delete(tmp)

kiernann/zippr documentation built on Feb. 17, 2021, 5:59 p.m.