bug: fix issue column parsing #36

- many endpoints had this bug

Author: dshemetov

R/endpoints.R

@@ -910,7 +910,7 @@ ecdc_ili <- function(regions,
     list(
       create_epidata_field_info("region", "text"),
       create_epidata_field_info("release_date", "date"),
-      create_epidata_field_info("issue", "date"),
+      create_epidata_field_info("issue", "epiweek"),
       create_epidata_field_info("epiweek", "epiweek"),
       create_epidata_field_info("lag", "int"),
       create_epidata_field_info("incidence_rate", "float")
@@ -964,7 +964,7 @@ flusurv <- function(locations,
     list(
       create_epidata_field_info("release_date", "text"),
       create_epidata_field_info("location", "text"),
-      create_epidata_field_info("issue", "date"),
+      create_epidata_field_info("issue", "epiweek"),
       create_epidata_field_info("epiweek", "epiweek"),
       create_epidata_field_info("lag", "int"),
       create_epidata_field_info("rate_age_0", "float"),
@@ -1019,7 +1019,7 @@ fluview_clinical <-
       list(
         create_epidata_field_info("release_date", "text"),
         create_epidata_field_info("region", "text"),
-        create_epidata_field_info("issue", "date"),
+        create_epidata_field_info("issue", "epiweek"),
         create_epidata_field_info("epiweek", "epiweek"),
         create_epidata_field_info("lag", "int"),
         create_epidata_field_info("total_specimens", "int"),
@@ -1105,7 +1105,7 @@ fluview <-
       list(
         create_epidata_field_info("release_date", "text"),
         create_epidata_field_info("region", "text"),
-        create_epidata_field_info("issue", "date"),
+        create_epidata_field_info("issue", "epiweek"),
         create_epidata_field_info("epiweek", "epiweek"),
         create_epidata_field_info("lag", "int"),
         create_epidata_field_info("num_ili", "int"),
@@ -1242,7 +1242,7 @@ kcdc_ili <- function(regions,
     list(
       create_epidata_field_info("release_date", "text"),
       create_epidata_field_info("region", "text"),
-      create_epidata_field_info("issue", "date"),
+      create_epidata_field_info("issue", "epiweek"),
       create_epidata_field_info("epiweek", "epiweek"),
       create_epidata_field_info("lag", "int"),
       create_epidata_field_info("ili", "float")
@@ -1369,7 +1369,7 @@ nidss_flu <-
         create_epidata_field_info("release_date", "text"),
         create_epidata_field_info("region", "text"),
         create_epidata_field_info("epiweek", "epiweek"),
-        create_epidata_field_info("issue", "date"),
+        create_epidata_field_info("issue", "epiweek"),
         create_epidata_field_info("lag", "int"),
         create_epidata_field_info("visits", "int"),
         create_epidata_field_info("ili", "float")
@@ -1489,7 +1489,7 @@ paho_dengue <- function(regions,
       create_epidata_field_info("region", "text"),
       create_epidata_field_info("serotype", "text"),
       create_epidata_field_info("epiweek", "epiweek"),
-      create_epidata_field_info("issue", "date"),
+      create_epidata_field_info("issue", "epiweek"),
       create_epidata_field_info("lag", "int"),
       create_epidata_field_info("total_pop", "int"),
       create_epidata_field_info("num_dengue", "int"),