test_that("contact_df_age missing", {
expect_warning(
age_df_countries("test"),
"not included"
)
countries <- c("Austria", "Belgium")
age_df <- age_df_countries(countries)
expect_s3_class(age_df, "data.frame")
expect_identical(dim(age_df), c(16L * length(countries), 3L))
expect_named(age_df, c("country", "age", "population"))
expect_setequal(age_df$country, countries)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.