Nothing
test_that("download_file() works", {
myurl <- "https://github.com/privefl.png"
png <- download_file(myurl, quiet = TRUE)
expect_identical(png, file.path(tempdir(), "privefl.png"))
mtime <- file.info(png)[["mtime"]]
expect_identical(download_file(myurl), png)
expect_identical(file.info(png)[["mtime"]], mtime) # file was not modified
Sys.sleep(2)
download_file(myurl, overwrite = TRUE, quiet = TRUE)
expect_gt(file.info(png)[["mtime"]], mtime) # file was modified
})
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.