Nothing
skip_on_cran()
test_that("delete bin", {
skip_on_os("windows")
url <- file.path(base_url(), BIN)
zipfile <- bin_archive(BIN, "zip")
tarfile <- bin_archive(url, "tar", file = TAR)
zip_type <- system2("file", zipfile, stdout = TRUE)
tar_type <- system2("file", tarfile, stdout = TRUE)
expect_match(zip_type, "Zip archive")
expect_match(tar_type, "POSIX tar archive")
})
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.