tests/testthat/test-eqn2svg.R

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>$")
})

Try the eqn2svg package in your browser

Any scripts or data that you put into this service are public.

eqn2svg documentation built on Oct. 6, 2019, 5:04 p.m.