Add safe_weo_get()

DESCRIPTION

@@ -14,7 +14,7 @@ Description: Provides a consistent set of functions for enriching and analyzing
 License: MIT + file LICENSE
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Depends: 
     R (>= 4.1)
 Imports:

R/get.R

@@ -43,11 +43,23 @@ get_income_levels <- function(entities) {
     dplyr::filter(.data$id %in% entities)
 }
 
+#' @keywords internal
+#' @noRd
+safe_weo_get <- function(entities, series, ...) {
+  weo_get(
+    entities,
+    series,
+    year = 2025,
+    release = "Spring",
+    ...
+  )
+}
+
 #' @keywords internal
 #' @noRd
 get_gdp <- function(entities, most_recent_only, usd = TRUE) {
   series <- ifelse(usd, "NGDPD", "NGDP")
-  result <- weo_get(entities, series) |>
+  result <- safe_weo_get(entities, series) |>
     dplyr::filter(.data$series_id == series) |>
     dplyr::select(id = "entity_id", "year", "value") |>
     dplyr::mutate(value = .data$value * 1e9)
@@ -60,7 +72,7 @@ get_gdp <- function(entities, most_recent_only, usd = TRUE) {
 #' @keywords internal
 #' @noRd
 get_gov_exp <- function(entities, most_recent_only) {
-  result <- weo_get(entities, "GGX") |>
+  result <- safe_weo_get(entities, "GGX") |>
     dplyr::filter(.data$series_id == "GGX") |>
     dplyr::select(id = "entity_id", "year", "value") |>
     dplyr::mutate(value = .data$value * 1e9)
@@ -73,7 +85,7 @@ get_gov_exp <- function(entities, most_recent_only) {
 #' @keywords internal
 #' @noRd
 get_gov_exp_share <- function(entities, most_recent_only) {
-  result <- weo_get(entities, "GGX_NGDP") |>
+  result <- safe_weo_get(entities, "GGX_NGDP") |>
     dplyr::filter(.data$series_id == "GGX_NGDP") |>
     dplyr::select(id = "entity_id", "year", "value") |>
     dplyr::mutate(value = .data$value / 100)