ocha-dap / cumulus Goto Github PK

ex_func <- function(..., sas_key = Sys.getenv("DEV_SAS"), endpoint = Sys.getenv("ENDPOINT_URL_TEMPLATE"){
}
#> etc. etc. need to deal w/ dev keys, prod keys, and other container specific keys

creds_envvar(
  user = Sys.getenv("USER"),
  pass_envvar = "PW",
  host = Sys.getenv("HOST"),
  port = Sys.getenv("PORT")
)

initialize <- function(
  SAS_PROD = "SAS_PROD_KEY",
  SAS_DEV = "SAS_DEV_KEY",
  ENDPOINT_URL = "ENDPOINT_URL"
){

#  probably something smarter than this, but just having a list 
#  would allow us to to always refer to env var names standard names
list(
  SAS_PROD = "SAS_PROD_KEY",
  SAS_DEV = "SAS_DEV_KEY",
  ENDPOINT_URL = "ENDPOINT_URL"
)
}

initialize <- function(
  CUMULUS_SAS_PROD = "SAS_PROD_KEY",
  CUMULUS_SAS_DEV = "SAS_DEV_KEY",
  CUMULUS_ENDPOINT_URL = "ENDPOINT_URL"
){

#  probably something smarter than this, but just having a list 
#  would allow us to to always refer to env var names standard names
Sys.setenv(
  CUMULUS_SAS_PROD = "SAS_PROD_KEY",
  CUMULUS_SAS_DEV = "SAS_DEV_KEY",
  CUMULUS_ENDPOINT_URL = "ENDPOINT_URL"
)
}

prod <- prod_blob(CUMULUS_SAS_PROD)