test_that("plot function works", {
model <- lm(mpg ~ wt, data = mtcars)
plot <- plot_residuals(model)
expect_true("ggplot" %in% class(plot))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.