test_that ("test_popup", {
pu <- popup ("x", c ("y"), c (0))
testthat::expect_equal (pu, "<b>x</b></br><b>y: </b>0.00")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.