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.
57 lines
2.2 KiB
57 lines
2.2 KiB
context("basic functionality")
|
|
test_that("we can do something", {
|
|
|
|
skip_on_cran()
|
|
|
|
expect_that(age_group_distribution(), is_a("data.frame"))
|
|
|
|
expect_that(geographic_spread(), is_a("data.frame"))
|
|
|
|
expect_that(state_data_providers(), is_a("data.frame"))
|
|
|
|
expect_that(hospitalizations("flusurv"), is_a("data.frame"))
|
|
expect_that(hospitalizations("eip"), is_a("data.frame"))
|
|
expect_that(hospitalizations("eip", "Colorado"), is_a("data.frame"))
|
|
expect_that(hospitalizations("ihsp"), is_a("data.frame"))
|
|
expect_that(hospitalizations("ihsp", "Oklahoma"), is_a("data.frame"))
|
|
|
|
expect_that(ilinet("national"), is_a("data.frame"))
|
|
expect_that(ilinet("hhs"), is_a("data.frame"))
|
|
expect_that(ilinet("census"), is_a("data.frame"))
|
|
expect_that(ilinet("state"), is_a("data.frame"))
|
|
|
|
expect_that(ili_weekly_activity_indicators(2017), is_a("data.frame"))
|
|
|
|
expect_that(pi_mortality("national"), is_a("data.frame"))
|
|
expect_that(pi_mortality("state"), is_a("data.frame"))
|
|
expect_that(pi_mortality("region"), is_a("data.frame"))
|
|
|
|
expect_that(surveillance_areas(), is_a("data.frame"))
|
|
|
|
expect_that(who_nrevss("national"), is_a("list"))
|
|
expect_that(who_nrevss("hhs"), is_a("list"))
|
|
expect_that(who_nrevss("census"), is_a("list"))
|
|
expect_that(who_nrevss("state"), is_a("list"))
|
|
|
|
expect_that(cdc_basemap("national"), is_a("sf"))
|
|
expect_that(cdc_basemap("hhs"), is_a("sf"))
|
|
expect_that(cdc_basemap("census"), is_a("sf"))
|
|
expect_that(cdc_basemap("states"), is_a("sf"))
|
|
expect_that(cdc_basemap("spread"), is_a("sf"))
|
|
expect_that(cdc_basemap("surv"), is_a("sf"))
|
|
|
|
expect_equal(mmwr_week(Sys.Date()),
|
|
structure(list(mmwr_year = 2017, mmwr_week = 45, mmwr_day = 2),
|
|
.Names = c("mmwr_year", "mmwr_week", "mmwr_day"),
|
|
row.names = c(NA, -1L),
|
|
class = c("tbl_df", "tbl", "data.frame"))
|
|
)
|
|
|
|
expect_equal(mmwr_weekday(Sys.Date()),
|
|
structure(2L, .Label = c("Sunday", "Monday", "Tuesday", "Wednesday",
|
|
"Thursday", "Friday", "Saturday"),
|
|
class = "factor"))
|
|
|
|
expect_equal(mmwr_week_to_date(2016,10,3), structure(16868, class = "Date"))
|
|
|
|
})
|
|
|