diff --git a/.Rprofile b/.Rprofile index d6098c7..94c7894 100644 --- a/.Rprofile +++ b/.Rprofile @@ -4,7 +4,6 @@ source("renv/activate.R") (function() { paths <- c( - "R_CONFIG_ACTIVE", "AUTH_DB_KEY" ) @@ -18,3 +17,16 @@ source("renv/activate.R") )) } })() + +(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", "=")) + + } + +})() diff --git a/modules/global_options.R b/modules/global_options.R index 2e1c798..c6b63e7 100644 --- a/modules/global_options.R +++ b/modules/global_options.R @@ -10,15 +10,19 @@ set_global_options = function( config_params_to_check <- c( "form_app_version", + "form_id", + "form_name", "form_app_configure_path", "form_auth_enabled", - "form_id", - "form_name" + "form_schemes" ) expected_params_in_config <- config_params_to_check %in% names(config::get()) if (!all(expected_params_in_config)) { - cli::cli_abort(c("ну так не пойдет:", paste("-", config_params_to_check[!expected_params_in_config]))) + cli::cli_abort(c( + "Необходимо добавить в файл конфига {.file config.yml} следующие параметры:", + paste0(config_params_to_check[!expected_params_in_config], ":") + )) } options(