zstd quick bench

zstd-quick-bench.R

library(zstdlite)

set.seed(1)
bytes <- sample(as.raw(1:30), 1e6, replace = TRUE)

cz       <- zstdlite::zstd_compress(bytes)
cb_gzip  <- memCompress(bytes, type = 'gzip')
cb_bzip2 <- memCompress(bytes, type = 'bzip2')
cb_xz    <- memCompress(bytes, type = 'xz')
length(cz)
length(cb_gzip)
length(cb_bzip2)
length(cb_xz)


uz <- zstdlite::zstd_decompress(cz)
ub <- memDecompress(cb, type = 'gzip')


bench::mark(
  zstd_compress(bytes),
  memCompress(bytes, type = 'gzip'),
  memCompress(bytes, type = 'bzip2'),
  memCompress(bytes, type = 'xz'),
  check = FALSE
)




bench::mark(
  zstd_decompress(cz),
  memDecompress(cb_gzip , type = 'gzip'),
  memDecompress(cb_bzip2, type = 'bzip2'),
  memDecompress(cb_xz   , type = 'xz'),
  check = TRUE
)