README.md

In hrbrmstr/gzmem: Better gz in memory compression/decompression

gzmem : Better in memory compression/decompression

A partial resurrection of Rcompression for this.

The following functions are implemented:

• mem_compress: Compress a raw vector
• mem_inflate: Inflate a raw vector compressed

TODO

• [ ] Rewrite in Rcpp
• [ ] Make inflation dynamic vs relying on guessed bufffer size

Installation

devtools::install_git("https://gitlab.com/hrbrmstr/gzmem.git")

library(gzmem)
library(magrittr)

# current verison
packageVersion("gzmem")

## [1] '0.1.0'

Usage

This package contains functions to compress and decompress raw vectors in R using the zlib library.

It supports 3 different formats: gzip, zlib and raw. These formats all use the deflate algorithm to compress the data, but differ in the headers and footers they wrap around the deflate compressed data:

• gzip has a 10 byte header and an 8 byte footer around the compressed data.
• zlib has a 2 byte header and a 4 byte footer around the compressed data.
• raw has no header or footer, and so is just the deflate compressed data.

For example:

text <- "Hey, the room is getting smaller. No, it's not. *He's* getting *bigger*!"

Shows the following differences between all 3 formats:

gzip <- text %>% 
  charToRaw() %>% 
  mem_compress(format = "gzip")

##  [1] 1f 8b 08 00 00 00 00 00 04 03 3d ca b1 09 c0 30 0c 04 c0 55 3e 95 41 18 cf e1 2a 3b 24 f0 28 02 db 02 4b 4d b6 4f
## [39] 97 ab af f3 ad c8 87 d8 ee 13 16 50 66 da 52 c4 bc c6 e0 6e 38 bd c2 b2 04 96 67 83 74 96 90 7f c9 6d aa dc 72 7c
## [77] ac 89 c5 99 48 00 00 00

zlib <- text %>% 
  charToRaw() %>% 
  mem_compress(format = "zlib")

##  [1] 78 01 3d ca b1 09 c0 30 0c 04 c0 55 3e 95 41 18 cf e1 2a 3b 24 f0 28 02 db 02 4b 4d b6 4f 97 ab af f3 ad c8 87 d8
## [39] ee 13 16 50 66 da 52 c4 bc c6 e0 6e 38 bd c2 b2 04 96 67 83 74 96 90 7f c9 6d aa dc 72 7c 7c b9 17 ee

raw <- text %>% 
  charToRaw() %>% 
  mem_compress(format = "raw")

##  [1] 3d ca b1 09 c0 30 0c 04 c0 55 3e 95 41 18 cf e1 2a 3b 24 f0 28 02 db 02 4b 4d b6 4f 97 ab af f3 ad c8 87 d8 ee 13
## [39] 16 50 66 da 52 c4 bc c6 e0 6e 38 bd c2 b2 04 96 67 83 74 96 90 7f c9 6d aa dc 72 7c

These can then be decompressed by selecting the appropriate format:

gzip %>%
  mem_inflate(format = "gzip", 1024) %>% 
  rawToChar()

## [1] "Hey, the room is getting smaller. No, it's not. *He's* getting *bigger*!"

Test Results

library(gzmem)
library(testthat)

date()

## [1] "Sun May 20 16:59:37 2018"

test_dir("tests/")

## ✔ | OK F W S | Context
## ══ testthat results  ══════════════════════════════════════════════════════════════════════════════
## OK: 3 SKIPPED: 0 FAILED: 0
## 
## ══ Results ════════════════════════════════════════════════════════════════════════════════════════
## Duration: 0.3 s
## 
## OK:       0
## Failed:   0
## Warnings: 0
## Skipped:  0

hrbrmstr/gzmem documentation built on May 17, 2019, 5:08 p.m.