context("comp_reg")
testthat::test_that("test de comp_reg sur le calcul des pourcentages ",{
d<-subset(comp_reg('CORSE','BRETAGNE')$df,nom_metier=="Cuisiniers")
val<-round(d$pct,digits = 2)
testthat::expect_equal(val,7.68) }
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.