Nothing
test_that("compression/decompression works", {
data_file <- file.path(getwd(), "data.txt")
data <- readBin(data_file, raw(), file.info(data_file)$size)[1:1024]
# test default compression level, which is 3
compressed <- zstdCompress(data)
expect_that(identical(data, zstdDecompress(compressed)), is_true())
for (level in 1:zstdMaxCLevel()) {
compressed <- zstdCompress(data, level)
expect_that(identical(data, zstdDecompress(compressed)), is_true())
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.