ソースを参照

10th times a charm?

pull/20/head
boB Rudis 2年前
コミット
7aa4ea43bb
この署名に対応する既知のキーがデータベースに存在しません GPGキーID: 1D7529BE14E2BBA9
1個のファイルの変更0行の追加4行の削除
  1. +0
    -4
      tests/testthat/test-cdcfluview.R

+ 0
- 4
tests/testthat/test-cdcfluview.R ファイルの表示

@ -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"))


読み込み中…
キャンセル
保存