Fix load_ips and error masking

Fix TIME_PERIOD argument error in load_ips

The TIME_PERIOD argument in load_ips should be one of 2014, 2018, 2021, or 2023, but it was incorrectly set to 2020. This commit updates the call to use 2023.

Also fix an issue in the call_with_geo helper that masked errors in some functions (e.g., load_pevs). Previously, call_with_geo() overwrote underlying errors with a GEO_LEVEL error, which was misleading and not the actual cause.

Author: phlebailly6

actions/scripts/check_all_loads.R

@@ -23,6 +23,10 @@ LANGUAGE    <- "pt"
 RAW_DATA    <- FALSE
 GEO_LEVEL   <- "state"
 
+time_period_by_fn <- list(
+  load_ips = 2023
+)
+
 
 
 datasets_by_fn <- list(
@@ -133,18 +137,9 @@ call_with_geo <- function(fn, args, geo_level = "state") {
   }
 
   # tenta com geo_level = "state"
-  res <- tryCatch(
-    do.call(fn, c(args, list(geo_level = geo_level))),
-    error = function(e) e
-  )
-
-  # se funcionou, retorna
-  if (!inherits(res, "error")) {
-    return(res)
-  }
+  res <- do.call(fn, c(args, list(geo_level = geo_level)))
 
-  # fallback: tenta sem geo_level
-  do.call(fn, args)
+  return(res)
 }
 
 
@@ -196,7 +191,11 @@ for (fn_name in get_fns) {
 
     args <- list()
     if ("dataset"     %in% arg_names) args$dataset     <- ds
-    if ("time_period" %in% arg_names) args$time_period <- TIME_PERIOD
+    if ("time_period" %in% arg_names) {
+        args$time_period <- if (!is.null(time_period_by_fn[[fn_name]])) {
+          time_period_by_fn[[fn_name]]
+          } else {TIME_PERIOD}
+    }
     if ("raw_data"    %in% arg_names) args$raw_data    <- RAW_DATA
     if ("language"    %in% arg_names) args$language    <- LANGUAGE