Nothing
test_that("unzip_process", {
z <- make_a_zip()
tmp2 <- test_temp_dir()
p1 <- unzip_process()$new(z$zip, tmp2)
p1$wait(2000)
p1$kill()
expect_equal(p1$get_exit_status(), 0)
expect_true(file.exists(file.path(tmp2, basename(z$ex), "file1")))
expect_true(file.exists(file.path(tmp2, basename(z$ex), "dir")))
expect_true(file.exists(file.path(tmp2, basename(z$ex), "dir", "file2")))
expect_equal(readLines(file.path(tmp2, basename(z$ex), "file1")), "file1")
expect_equal(
readLines(file.path(tmp2, basename(z$ex), "dir", "file2")), "file2")
})
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.