test_that("SVG conversion works", {
svg_text <- eqn2svg(eqn = l_time_domain[25], preview = FALSE)
expect_match(svg_text, "^ <svg style.*")
expect_match(svg_text, ".*</path></g></g></g></g></svg>$")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.