Fix region declration issue, should capture global datatsets

truenomad · Mar 19, 2024 · d78b2a1 · d78b2a1
1 parent 538cb13
commit d78b2a1
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/R/get_polis_api_data.R b/R/get_polis_api_data.R
@@ -65,13 +65,14 @@ get_polis_api_data <- function(min_date,
   }
 
   # set up region field
-  if (tolower(region) == "global") {
+  if (tolower(region) == "global"  || is.null(region)) {
     region_field <- NULL
+  } else {
+    region_field <- get_api_date_suffix(data_type)$region_field
+    # set up region field name
+    region_field <- if (data_type == "virus") "RegionName" else "WHORegion"
   }
 
-  # set up region field name
-  region_field <- if (data_type == "virus") "RegionName" else "WHORegion"
-
   # Construct the full API URL
   api_url <- construct_api_url(
     api_endpoint, endpoint_suffix, min_date, max_date,