source("renv/activate.R")


(function() {

  paths <- c(
    "AUTH_DB_KEY"
  )

  lines <- paths[Sys.getenv(paths) == ""]

  if (length(lines) > 0) {
    cli::cli_h3("Настройка путей окружения")
    cli::cli_code(paste0(lines, "="))
    cli::cli_inform(c(
      "i" = "Для нормальной работы скриптов добавьте в {.file .Renviron}:"
    ))
  }
})()

(function() {

  if (Sys.getenv("R_CONFIG_ACTIVE") == "") {
    Sys.setenv(R_CONFIG_ACTIVE = "prod")
    cli::cli_inform(c(
      "i" = "Не указана конфигурация по умолчанию, автоматически установлен 'prod'. Для изменения конфигурации добавьте в {.file .Renviron}:"
    ))
    cli::cli_code(paste0("R_CONFIG_ACTIVE", "="))

  }

})()