test_that("pkgdown.internet can be set and read", {
options(pkgdown.internet = FALSE)
expect_false(has_internet())
})
test_that("is_internal_link() works", {
pkg=list(meta=list(url="https://pkgdown.r-lib.org"))
expect_false(is_internal_link("https://github.com", pkg = pkg))
expect_false(is_internal_link("http://github.com", pkg = pkg))
expect_true(is_internal_link("https://pkgdown.r-lib.org/articles", pkg = pkg))
expect_true(is_internal_link("reference/index.html", pkg = pkg))
expect_true(
all.equal(
is_internal_link(c("reference/index.html", "https://github.com"), pkg = pkg),
c(TRUE, FALSE)
)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.