diff --git a/NAMESPACE b/NAMESPACE index 4e89548..142241e 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -29,7 +29,6 @@ importFrom(dplyr,filter) importFrom(dplyr,left_join) importFrom(dplyr,mutate) importFrom(jsonlite,fromJSON) -importFrom(lubridate,epiweek) importFrom(purrr,discard) importFrom(purrr,keep) importFrom(purrr,map) diff --git a/NEWS.md b/NEWS.md index 7e24d18..6cd187b 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,6 +1,8 @@ # cdcfluview 0.9.0 - fix bug in epiweek computation in ilinet() thanks to a bug report by @jturtle (#19) +- included cloc metrics and refreshed README +- # cdcfluview 0.7.0 diff --git a/man/cdcfluview.Rd b/man/cdcfluview.Rd index 727c5e3..a5aa25e 100644 --- a/man/cdcfluview.Rd +++ b/man/cdcfluview.Rd @@ -4,7 +4,7 @@ \name{cdcfluview} \alias{cdcfluview} \alias{cdcfluview-package} -\title{Retrieve 'U.S'.' Flu Season Data from the 'CDC' 'FluView' Portal} +\title{Retrieve Flu Season Data from the United States Centers for Disease Control and Prevention ('CDC') 'FluView' Portal} \description{ The U.S. Centers for Disease Control (CDC) maintains a portal \url{http://gis.cdc.gov/grasp/fluview/fluportaldashboard.html} for diff --git a/tests/testthat/test-cdcfluview.R b/tests/testthat/test-cdcfluview.R index 3fb8db2..0fc5fd2 100644 --- a/tests/testthat/test-cdcfluview.R +++ b/tests/testthat/test-cdcfluview.R @@ -16,6 +16,13 @@ test_that("New API works", { skip_on_cran() + 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")) expect_that(ilinet("census", years=2017), is_a("data.frame"))