tests/testthat.R

library(testthat)
library(geocard)

test_check("geocard")

test_that("geocard runs", {
  a <- geocard(wa_cases, "Washington", min_date = as.Date("2020-03-01"))
  expect_true(inherits(a, "htmlwidget"))
})
WorldHealthOrganization/geocard documentation built on Oct. 7, 2020, 5:44 a.m.