diff --git a/DESCRIPTION b/DESCRIPTION index d1b39ac..efcbcad 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,24 +1,26 @@ Package: cdcfluview Type: Package Encoding: UTF-8 -Title: Retrieve 'U.S'. Flu Season Data from the 'CDC' 'FluView' Portal +Title: Retrieve U.S. Flu Season Data from the CDC 'FluView' Portal Version: 0.8.0 -Date: 2018-09-16 +Date: 2018-11-23 Authors@R: c( person("Bob", "Rudis", email = "bob@rud.is", role = c("aut", "cre"), comment = c(ORCID = "0000-0001-5670-2640")), person("Craig", "McGowan", email = "mcgowan.cj@gmail.com", role = "ctb", comment = c(ORCID = "0000-0002-6298-0185")), person("JJ", "Chen", email = "jiajia.chern@gmail.com", role = "ctb", - comment = c(ORCID = "0000-0001-8482-8398")) + comment = c(ORCID = "0000-0001-8482-8398")), + person("Sebastian", "Meyer", email = "seb.meyer@fau.de", role = "ctb", + comment = c(ORCID = "0000-0002-1791-9449")) ) Maintainer: Bob Rudis -Description: The 'U.S.' Centers for Disease Control ('CDC') maintains a portal - for +Description: The U.S. Centers for Disease Control and Prevention (CDC) maintain + a portal for accessing state, regional and national influenza statistics as well as - Mortality Surveillance Data. The web interface makes it difficult and + mortality surveillance data. The web interface makes it difficult and time-consuming to select and retrieve influenza data. Tools are provided - to access the data provided by the portal's underlying 'API'. + to access the data provided by the portal's underlying API. URL: https://github.com/hrbrmstr/cdcfluview BugReports: https://github.com/hrbrmstr/cdcfluview/issues License: MIT + file LICENSE diff --git a/LICENSE b/LICENSE index 1b30c7e..ba47e3b 100644 --- a/LICENSE +++ b/LICENSE @@ -1,2 +1,2 @@ -YEAR: 2015 +YEAR: 2015-2018 COPYRIGHT HOLDER: Bob Rudis diff --git a/R/mmwr-map.r b/R/mmwr-map.r index 357d7bc..e603509 100644 --- a/R/mmwr-map.r +++ b/R/mmwr-map.r @@ -5,9 +5,10 @@ # @author Jarad Niemi \email{niemi@@iastate.edu} .start_date = function(year) { # Finds start state for this calendar year - jan1 = as.Date(paste(year, '-01-01', sep='')) - wday = as.numeric(MMWRweekday(jan1)) - jan1 - (wday-1) + 7*(wday>4) + # Fix by @bastistician + jan1 <- as.Date(paste0(year, '-01-01')) + wday <- as.numeric(strftime(jan1, "%w")) # Sunday is 0 + jan1 - wday + 7*(wday>3) } # I discovered why 1962!: https://www.cdc.gov/mmwr/preview/mmwrhtml/su6004a9.htm