Browse Source

10th times a charm?

pull/20/head
boB Rudis 1 year ago
parent
commit
7aa4ea43bb
No known key found for this signature in database GPG Key ID: 1D7529BE14E2BBA9
1 changed files with 0 additions and 4 deletions
  1. +0
    -4
      tests/testthat/test-cdcfluview.R

+ 0
- 4
tests/testthat/test-cdcfluview.R View File

@@ -18,10 +18,6 @@ test_that("New API works", {

nat_dat <- ilinet(region="national", years=1997:2018)
expect_equal(unique(diff(nat_dat$week_start)), 7)
expect_equal(
as.character(unique(lubridate::wday(unique(nat_dat$week_start), label=TRUE))),
"Sun"
)

expect_that(ilinet("national", years=2017), is_a("data.frame"))
expect_that(ilinet("hhs", years=2017), is_a("data.frame"))


Loading…
Cancel
Save