context("sendAllFiles")
test_that("send all files", {
con <- setupTestEnvironment()
invisible(removeAllFiles(con))
sendAllFiles(con)
testthat::expect_true(nrow(listFiles(con)) == 6)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.