Made EconData and auth URL's settable through env vars

coderaanalytics · Jan 7, 2025 · 2f5307e · 2f5307e
1 parent c1f314e
commit 2f5307e
Show file tree

Hide file tree

Showing 9 changed files with 64 additions and 1 deletion.
diff --git a/R/get_metadata.R b/R/get_metadata.R
@@ -1,5 +1,12 @@
 get_metadata <- function(x) {
   env <- fromJSON(system.file("settings.json", package = "econdatar"))
+  if (nchar(Sys.getenv("ECONDATA_URL")) != 0) {
+    env$repository$url <- Sys.getenv("ECONDATA_URL")
+    env$registry$url <- Sys.getenv("ECONDATA_URL")
+  }
+  if (nchar(Sys.getenv("ECONDATA_AUTH_URL")) != 0) {
+    env$auth$url <- Sys.getenv("ECONDATA_AUTH_URL")
+  }
 
 
   # Fetch data structure definition (metadata) ----

diff --git a/R/read_database.R b/R/read_database.R
@@ -15,6 +15,13 @@ read_database <- function(id, include_series = FALSE, tidy = FALSE, ...) {
     version <- "latest"
   }
   env <- fromJSON(system.file("settings.json", package = "econdatar"))
+  if (nchar(Sys.getenv("ECONDATA_URL")) != 0) {
+    env$repository$url <- Sys.getenv("ECONDATA_URL")
+    env$registry$url <- Sys.getenv("ECONDATA_URL")
+  }
+  if (nchar(Sys.getenv("ECONDATA_AUTH_URL")) != 0) {
+    env$auth$url <- Sys.getenv("ECONDATA_AUTH_URL")
+  }
 
 
   # Fetch data set(s) ----

diff --git a/R/read_dataset.R b/R/read_dataset.R
@@ -18,6 +18,13 @@ read_dataset <- function(id, tidy = FALSE, ...) {
     version <- "latest"
   }
   env <- fromJSON(system.file("settings.json", package = "econdatar"))
+  if (nchar(Sys.getenv("ECONDATA_URL")) != 0) {
+    env$repository$url <- Sys.getenv("ECONDATA_URL")
+    env$registry$url <- Sys.getenv("ECONDATA_URL")
+  }
+  if (nchar(Sys.getenv("ECONDATA_AUTH_URL")) != 0) {
+    env$auth$url <- Sys.getenv("ECONDATA_AUTH_URL")
+  }
 
 
   # Fetch data set(s) ----

diff --git a/R/read_registry.R b/R/read_registry.R
@@ -23,6 +23,13 @@ read_registry <- function(structure, tidy = FALSE, ...) {
     version <- "latest"
   }
   env <- fromJSON(system.file("settings.json", package = "econdatar"))
+  if (nchar(Sys.getenv("ECONDATA_URL")) != 0) {
+    env$repository$url <- Sys.getenv("ECONDATA_URL")
+    env$registry$url <- Sys.getenv("ECONDATA_URL")
+  }
+  if (nchar(Sys.getenv("ECONDATA_AUTH_URL")) != 0) {
+    env$auth$url <- Sys.getenv("ECONDATA_AUTH_URL")
+  }
   params$env <- env
 
 

diff --git a/R/read_release.R b/R/read_release.R
@@ -25,6 +25,13 @@ read_release <- function(id, tidy = FALSE, ...) {
     query_params$description <- params$description
   }
   env <- fromJSON(system.file("settings.json", package = "econdatar"))
+  if (nchar(Sys.getenv("ECONDATA_URL")) != 0) {
+    env$repository$url <- Sys.getenv("ECONDATA_URL")
+    env$registry$url <- Sys.getenv("ECONDATA_URL")
+  }
+  if (nchar(Sys.getenv("ECONDATA_AUTH_URL")) != 0) {
+    env$auth$url <- Sys.getenv("ECONDATA_AUTH_URL")
+  }
 
 
   # Fetch release ----

diff --git a/R/write_database.R b/R/write_database.R
@@ -7,6 +7,14 @@ write_database <- function(x, method = "update", ...) {
   stopifnot(length(method) == 1)
   stopifnot(method %in% c("create", "update"))
   env <- fromJSON(system.file("settings.json", package = "econdatar"))
+  if (nchar(Sys.getenv("ECONDATA_URL")) != 0) {
+    env$repository$url <- Sys.getenv("ECONDATA_URL")
+    env$registry$url <- Sys.getenv("ECONDATA_URL")
+  }
+  if (nchar(Sys.getenv("ECONDATA_AUTH_URL")) != 0) {
+    env$auth$url <- Sys.getenv("ECONDATA_AUTH_URL")
+  }
+
 
 
   # Push data message ----

diff --git a/R/write_dataset.R b/R/write_dataset.R
@@ -3,11 +3,17 @@ write_dataset <- function(x, method = "stage", ...) {
 
   # Parameters ----
 
-  env <- fromJSON(system.file("settings.json", package = "econdatar"))
   params <- list(...)
   stopifnot(length(method) == 1)
   stopifnot(method %in% c("stage", "validate"))
   env <- fromJSON(system.file("settings.json", package = "econdatar"))
+  if (nchar(Sys.getenv("ECONDATA_URL")) != 0) {
+    env$repository$url <- Sys.getenv("ECONDATA_URL")
+    env$registry$url <- Sys.getenv("ECONDATA_URL")
+  }
+  if (nchar(Sys.getenv("ECONDATA_AUTH_URL")) != 0) {
+    env$auth$url <- Sys.getenv("ECONDATA_AUTH_URL")
+  }
 
 
   # Push data message ----

diff --git a/R/write_registry.R b/R/write_registry.R
@@ -7,6 +7,13 @@ write_registry <- function(structure, x, method = "update", ...) {
   stopifnot(length(method) == 1)
   stopifnot(method %in% c("delete", "create", "update"))
   env <- fromJSON(system.file("settings.json", package = "econdatar"))
+  if (nchar(Sys.getenv("ECONDATA_URL")) != 0) {
+    env$repository$url <- Sys.getenv("ECONDATA_URL")
+    env$registry$url <- Sys.getenv("ECONDATA_URL")
+  }
+  if (nchar(Sys.getenv("ECONDATA_AUTH_URL")) != 0) {
+    env$auth$url <- Sys.getenv("ECONDATA_AUTH_URL")
+  }
   params$env <- env
 
 

diff --git a/R/write_release.R b/R/write_release.R
@@ -21,6 +21,13 @@ write_release <- function(id, version, description, method = "release", ...)  {
   stopifnot(length(method) == 1)
   stopifnot(method %in% c("release", "reset", "rollback"))
   env <- fromJSON(system.file("settings.json", package = "econdatar"))
+  if (nchar(Sys.getenv("ECONDATA_URL")) != 0) {
+    env$repository$url <- Sys.getenv("ECONDATA_URL")
+    env$registry$url <- Sys.getenv("ECONDATA_URL")
+  }
+  if (nchar(Sys.getenv("ECONDATA_AUTH_URL")) != 0) {
+    env$auth$url <- Sys.getenv("ECONDATA_AUTH_URL")
+  }
 
 
   # Commit data set release ----