test_that("can find files in root and .github", {
dir <- withr::local_tempdir()
dir_create(path(dir, ".github"))
file_create(path(dir, "a.md"))
file_create(path(dir, ".github", "b.md"))
mds <- withr::with_dir(dir, package_mds("."))
expect_equal(mds, c("a.md", "./.github/b.md"))
})
test_that("drops files handled elsewhere", {
dir <- withr::local_tempdir()
dir_create(path(dir, ".github"))
file_create(path(dir, c("README.md", "LICENSE.md", "NEWS.md")))
expect_equal(withr::with_dir(dir, package_mds(".")), character())
})
test_that("drops files that don't need to be rendered", {
dir <- withr::local_tempdir()
dir_create(path(dir, ".github"))
file_create(path(dir, c("cran-comments.md", "issue_template.md")))
expect_equal(withr::with_dir(dir, package_mds(".")), character())
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.