readBrotli <- function(x) {
if(!requireNamespace('brotli', quietly = T))
stop("Please install suggested brotli package for rdsb format")
comp=readBin(x, what=raw(), n = file.size(x))
b=brotli::brotli_decompress(comp)
unserialize(b)
}
saveBrotli <- function(x, file, quality=2, ...) {
if(!requireNamespace('brotli', quietly = T))
stop("Please install suggested brotli package for rdsb format")
b=serialize(x, NULL)
comp=brotli::brotli_compress(b, quality=quality, ...)
writeBin(comp, file)
invisible(file)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.