Nothing
describe("archive_write_dir", {
it("can write a zip file", {
skip_if(libarchive_zlib_version() == "0.0.0")
dir <- tempfile()
dir.create(dir)
files <- c(mtcars = "mtcars.csv", iris = "iris.csv")
write.csv(mtcars, file.path(dir, files[["mtcars"]]))
write.csv(iris, file.path(dir, files[["iris"]]))
archive_write_dir("data.zip", dir)
on.exit(unlink(c(files, "data.zip")))
expect_equal(
read.csv(unz("data.zip", files[["mtcars"]]), row.names = 1),
mtcars)
expect_equal(
read.csv(unz("data.zip", files[["iris"]]), row.names = 1, stringsAsFactors = TRUE),
iris)
})
})
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.