tests/testthat/test-pourcentage.R

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) }
)
l-k-11235/projetMetiers documentation built on Dec. 8, 2019, 10:04 p.m.