mmwr tweaks

NAMESPACE

@@ -6,6 +6,7 @@ export(geographic_spread)
 export(hospitalizations)
 export(ili_weekly_activity_indicators)
 export(ilinet)
+export(mmwrid_map)
 export(pi_mortality)
 export(state_data_providers)
 export(surveillance_areas)

R/aaa.R

@@ -1,15 +1,3 @@
-# THIS IS NOT EXPORTED FROM MMWRweek but I need it
-# Find start date for a calendar year
-#
-# Finds the state date given a numeric calendar year
-# @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)
-}
-
 # CDC U.S. region names to ID map
 .region_map <- c(national=3, hhs=1, census=2, state=5)
 
@@ -40,16 +28,3 @@
               "B (Yamagata Lineage)", "H3N2v")
 
 # Week Starts
-
-.tmp <- lapply(1962:2030, .start_date)
-
-mapply(function(.x, .y) {
-  data_frame(
-    wk_start = seq(.tmp[[.x]], .tmp[[.y]], "1 week"),
-    wk_num = 1:length(wk_start)
-  ) -> tmp
-  tmp[-nrow(tmp),]
-}, 1:(length(.tmp)-1), 2:length(.tmp), SIMPLIFY=FALSE) -> .wk
-
-.wk <- Reduce(rbind.data.frame, .wk)
-.wk$mmwrid <- 1:nrow(.wk)

R/mmwr-map.r

@@ -0,0 +1,31 @@
+# THIS IS NOT EXPORTED FROM MMWRweek but I need it
+# Find start date for a calendar year
+#
+# Finds the state date given a numeric calendar year
+# @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)
+}
+
+# I discovered why 1962!: https://www.cdc.gov/mmwr/preview/mmwrhtml/su6004a9.htm
+.tmp <- lapply(1962:2050, .start_date)
+
+mapply(function(.x, .y) {
+  data_frame(
+    wk_start = seq(.tmp[[.x]], .tmp[[.y]], "1 week"),
+    wk_end = wk_start + 6,
+    year_wk_num = 1:length(wk_start)
+  ) -> tmp
+  tmp[-nrow(tmp),]
+}, 1:(length(.tmp)-1), 2:length(.tmp), SIMPLIFY=FALSE) -> mmwrid_map
+
+mmwrid_map <- Reduce(rbind.data.frame, mmwrid_map)
+mmwrid_map$mmwrid <- 1:nrow(mmwrid_map)
+
+#' @title MMWR ID to Calendar Mappings
+#' @name mmwrid_map
+#' @export
+NULL

man/mmwrid_map.Rd

@@ -0,0 +1,5 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/mmwr-map.r
+\name{mmwrid_map}
+\alias{mmwrid_map}
+\title{MMWR ID to Calendar Mappings}