test_that("cogifier conserve les totaux", {
expect_equal(pop2015 %>% COGiter::cogifier(na.rm = TRUE) %>% dplyr::filter(TypeZone == "Communes") %>% dplyr::pull(pop2015) %>% sum(),
sum(pop2015$pop2015))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.