@ -1,7 +1,7 @@
### :mask: cdcfluview - Retrieve U.S. Flu Season Data from the CDC FluView Portal
[](https://cran.r-project.org/package=cdcfluview) [](https://travis-ci.org/hrbrmstr/cdcfluview)
[](https://cran.r-project.org/package=cdcfluview) [](https://travis-ci.org/hrbrmstr/cdcfluview) [](https://codecov.io/github/hrbrmstr/cdcfluview?branch=master)
**NOTE** If there's a particular data set from < https: / / www . cdc . gov / flu / weekly / fluviewinteractive . htm > that you want and that isn't in the package, please file it as an issue and be as specific as you can (screen shot if possible).
@ -49,7 +49,7 @@ library(statebins)
# current verison
packageVersion("cdcfluview")
#> [1] '0.5.1 '
#> [1] '0.5.2 '
flu < - get_flu_data ( " hhs " , sub_region = 1:10, " ilinet " , years = 2014)
glimpse(flu)
@ -75,14 +75,14 @@ state_flu <- get_state_data(years=2015)
glimpse(state_flu)
#> Observations: 2,807
#> Variables: 8
#> $ statename < chr > "Alabama", "Alaska", "Arizona", "Arkansas", "California", "Colorado", "Connecticut", " ...
#> $ url < chr > "http://adph.org/influenza/", "http://dhss.alaska.gov/dph/Epi/id/Pages/influenza/influ ...
#> $ website < chr > "Influenza Surveillance", "Influenza Surveillance Report", "Influenza & RSV Surveillan ...
#> $ activity_level < int > 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 ,...
#> $ activity_level_label < chr > "Minimal", "Minimal", "Minimal", "Minimal", "Minimal", "Minimal", "Minimal", "Minimal" ...
#> $ weekend < chr > "Oct-10-2015", "Oct-10-2015", "Oct-10-2015", "Oct-10-2015", "Oct-10-2015", "Oct-10 -201...
#> $ statename < chr > "Virgin Islands", "District of Columbia", "Virgin Islands", "District of Columbia", "V ...
#> $ url < chr > "http://doh.vi.gov/", "http://doh.dc.gov/page/influenza-season", "http://doh.vi.gov/", ...
#> $ website < chr > "Influenza", "Influenza Information", "Influenza", "Influenza Information", "Influenza ...
#> $ activity_level < int > 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ,...
#> $ activity_level_label < chr > "Insufficient Data", "Insufficient Data", "Insufficient Data", "Insufficient Data", "I ...
#> $ weekend < chr > "Oct-10-2015", "Oct-17-2015", "Oct-17-2015", "Oct-24-2015", "Oct-24-2015", "Oct-31 -201...
#> $ season < chr > "2015-16", "2015-16", "2015-16", "2015-16", "2015-16", "2015-16", "2015-16", "2015-16"...
#> $ weeknumber < int > 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40 ...
#> $ weeknumber < int > 40, 41, 41, 42, 42, 43, 43, 44, 44, 45, 45, 46, 46, 47, 47, 48, 48, 49, 49, 50, 50, 51 ...
gg < - ggplot ( flu , aes ( x = WEEK, y = `% WEIGHTED ILI ` , group = REGION))
gg < - gg + geom_line ( )
@ -153,7 +153,7 @@ library(cdcfluview)
library(testthat)
date()
#> [1] "Mon Dec 5 14:45:12 2016 "
#> [1] "Tue Mar 14 09:59:29 2017 "
test_dir("tests/")
#> testthat results ========================================================================================================