tests/testthat/test-contact_matrix.R

In contactdata: Social Contact Matrices for 177 Countries

test_that("contact_matrix()", {

  res <- contact_matrix("Belgium", location = "school")

  expect_type(res, "double")
  expect_identical(dim(res), c(16L, 16L))
  expect_identical(
    rownames(res),
    sprintf("%02i_%02i", seq(0, 75, 5), seq(5, 80, 5))
  )
  expect_identical(
    colnames(res),
    sprintf("%02i_%02i", seq(0, 75, 5), seq(5, 80, 5))
  )

  expect_error(
    contact_matrix(c("Austria", "Belgium")),
    "single country"
  )

  expect_error(
    contact_matrix("missing"),
    "not included"
  )

  expect_snapshot(res)

  res_2017 <- contact_matrix("Belgium", location = "school", data_source = "2017")

  expect_snapshot(res_2017)

})