context("Incfection and Vaccination Plot ")
library(covid19Canada)
test_that("function generates the correct data and plot", {
plot <- InfeVacPlot(TRUE)
expect_type(plot, "list" )
})
# [END]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.