change expected timecol output type based on time_type

cmu-delphi · Feb 29, 2024 · 4f4c14c · 4f4c14c
1 parent a920a76
commit 4f4c14c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/endpoints.R b/R/endpoints.R
@@ -1051,8 +1051,8 @@ pub_covidcast <- function(
           c("day", "week")
       ),
       create_epidata_field_info("geo_value", "text"),
-      create_epidata_field_info("time_value", "date"),
-      create_epidata_field_info("issue", "date"),
+      create_epidata_field_info("time_value", switch(time_type, day = "date", week = "epiweek")),
+      create_epidata_field_info("issue", switch(time_type, day = "date", week = "epiweek")),
       create_epidata_field_info("lag", "int"),
       create_epidata_field_info("value", "float"),
       create_epidata_field_info("stderr", "float"),