context("Testing package .onLoad and options")
test_that("There should be diffnet options", {
netdiffuseR:::.onLoad()
expect_is(getOption("diffnet.self"), "logical")
expect_is(getOption("diffnet.undirected"), "logical")
expect_is(getOption("diffnet.multiple"), "logical")
expect_is(getOption("diffnet.tol"), "numeric")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.