test_that("get_international_linelist cases works as expected", {
base <- get_international_linelist(countries = 'United Kingdom', cities = c('London'))
expect_is(base, "data.frame")
expect_is(base$date_onset, "Date")
expect_is(base$date_confirm, "Date")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.