tests/testthat/test-n_countries.R

test_that("output correctness test", {
  x <- coronavirus_wide
  expect_equal(
    n_countries(x),
    189
  )

  x <- dplyr::filter(coronavirus_wide, country == c("Chile", "Bolivia"))
  expect_equal(
    n_countries(x),
    2
  )
})
etc5523-2020/r-package-assessment-1029YanMa documentation built on Jan. 1, 2021, 1:09 a.m.