source("renv/activate.R")


(function() {

  paths <- c(
    "R_CONFIG_ACTIVE",
    "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}:"
    ))
  }
})()