test_that("make_relplot works", {
df <- suppressWarnings(fst::read_fst(app_sys("app/extdata/VR21nlboff.fst")))
inps <- c("H")
expect_true(all(class(make_relplot(df, inps)) == c("plotly", "htmlwidget")))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.