context("infrastructure")
td <- tempdir()
unlink(file.path(td, "R"))
test_that("check R directory", {
expect_that(has_r(), is_false())
expect_that(has_r(td), is_false())
dir.create(file.path(td, "R"))
expect_that(has_r(td), is_true())
})
test_that("chck DESCRIPTION file", {
expect_that(has_description(td), is_false())
# new_description() expect_that(has_description(td), is_true())
})
test_that("check inst directory", {
# #5
expect_that(has_inst(td), is_false())
dir.create(file.path(td, "inst"))
expect_that(has_inst(td), is_true())
})
test_that("format_r works", {
# #2
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.