You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

44 lines
1.5 KiB

6 years ago
3 years ago
3 years ago
3 years ago
3 years ago
3 years ago
3 years ago
3 years ago
3 years ago
6 years ago
  1. context("basic functionality")
  2. test_that("we can do something", {
  3. skip_on_cran()
  4. expect_that(agd_ipt(), is_a("data.frame"))
  5. expect_that(geographic_spread(), is_a("data.frame"))
  6. expect_that(state_data_providers(), is_a("data.frame"))
  7. expect_that(hospitalizations("flusurv"), is_a("data.frame"))
  8. expect_that(hospitalizations("eip"), is_a("data.frame"))
  9. expect_that(hospitalizations("eip", "Colorado"), is_a("data.frame"))
  10. expect_that(hospitalizations("ihsp"), is_a("data.frame"))
  11. expect_that(hospitalizations("ihsp", "Oklahoma"), is_a("data.frame"))
  12. expect_that(ilinet("national"), is_a("data.frame"))
  13. expect_that(ilinet("hhs"), is_a("data.frame"))
  14. expect_that(ilinet("census"), is_a("data.frame"))
  15. expect_that(ilinet("state"), is_a("data.frame"))
  16. expect_that(ili_weekly_activity_indicators(2017), is_a("data.frame"))
  17. expect_that(pi_mortality("national"), is_a("data.frame"))
  18. expect_that(pi_mortality("state"), is_a("data.frame"))
  19. expect_that(pi_mortality("region"), is_a("data.frame"))
  20. expect_that(surveillance_areas(), is_a("data.frame"))
  21. expect_that(who_nrevss("national"), is_a("list"))
  22. expect_that(who_nrevss("hhs"), is_a("list"))
  23. expect_that(who_nrevss("census"), is_a("list"))
  24. expect_that(who_nrevss("state"), is_a("list"))
  25. expect_that(cdc_basemap("national"), is_a("sf"))
  26. expect_that(cdc_basemap("hhs"), is_a("sf"))
  27. expect_that(cdc_basemap("census"), is_a("sf"))
  28. expect_that(cdc_basemap("states"), is_a("sf"))
  29. expect_that(cdc_basemap("spread"), is_a("sf"))
  30. expect_that(cdc_basemap("surv"), is_a("sf"))
  31. })