test_that("can override defaults in _pkgdown.yml", {
skip_if_no_pandoc()
withr::local_temp_libpaths()
pkg <- local_pkgdown_site(test_path("assets/figure"))
callr::rcmd("INSTALL", pkg$src_path, show = FALSE, fail_on_status = TRUE)
expect_snapshot(build_reference(pkg, devel = FALSE))
img <- path_file(dir_ls(path(pkg$dst_path, "reference"), glob = "*.jpg"))
expect_setequal(img, c("figure-1.jpg", "figure-2.jpg"))
expect_snapshot(build_articles(pkg))
img <- path_file(dir_ls(path(pkg$dst_path, "articles"), glob = "*.jpg", recurse = TRUE))
expect_equal(img, "unnamed-chunk-1-1.jpg")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.