inst/tinytest/test-dsvg_view.R

library(tinytest)
library(ggiraph)

# dsvg view
{
  v <- dsvg_view(plot(1:10))
  if (interactive()) {
    expect_inherits(v, "html")
  } else {
    expect_null(v)
  }
}
davidgohel/ggiraph documentation built on April 13, 2024, 7:19 a.m.