diff --git a/R/get_metadata.R b/R/get_metadata.R
index 41e9fb6..937fac5 100644
--- 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
index c72c4ee..cc40a7e 100644
--- 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
index 1526b16..a558547 100644
--- 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
index 6ff9065..a6ad2c3 100644
--- 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
index caeadec..379d9eb 100644
--- 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
index 8c91d73..e69a400 100644
--- 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
index 417837d..97b857b 100644
--- 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
index 91e453a..08c32e0 100644
--- 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
index 2e58c46..f96b34b 100644
--- 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 ----