describe("prodStack, no interactive", {
dta <- readAntares(areas = "all")
VV <- plotXY(dta, "NODU", "LOAD", precision = 50,
sizeOnCount = FALSE)
expect_true("htmlwidget" %in% class(VV))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.