tests/testthat/test-InfeVacPlot.R

context("Incfection and Vaccination Plot ")
library(covid19Canada)

test_that("function generates the correct data and plot", {

  plot <- InfeVacPlot(TRUE)

  expect_type(plot, "list" )
})
# [END]
RicoZong/covid19Canada documentation built on Dec. 18, 2021, 10:50 a.m.