refactor: перенос объявление enabled_schema в отдельный файл в папке configs

app.R

@@ -14,9 +14,9 @@ suppressPackageStartupMessages({
 # SOURCE FILES ============================
 box::purge_cache()
 box::use(
+  configs/enabled_schemes[enabled_schemes],
   modules/utils,
   modules/global_options,
-  modules/global_options[enabled_schemas],
   modules/db,
   modules/data_validation,
   modules/scheme_generator[scheme_R6]
@@ -29,9 +29,8 @@ HEADER_TEXT  <- sprintf("%s (%s)", Sys.getenv("FORM_TITLE", "NA"), Sys.getenv("F
 
 global_options$set_global_options(
   shiny.host = "0.0.0.0"
-  # enabled_schemas = "example_of_scheme"
+  # enabled_schemes = "example_of_scheme"
 )
-global_options$check_and_init_scheme()
 
 # CHECK FOR PANDOC
 # TEMP ! NEED TO HANDLE
@@ -147,8 +146,8 @@ server <- function(input, output, session) {
     nested_form_id = NULL
   )
 
-  scheme <- reactiveVal(enabled_schemas[1]) # наименование выбранной схемы
+  scheme <- reactiveVal(enabled_schemes[1]) # наименование выбранной схемы
-  mhcs   <- reactiveVal(schms[[enabled_schemas[1]]]) # объект для выбранной схемы
+  mhcs   <- reactiveVal(schms[[enabled_schemes[1]]]) # объект для выбранной схемы
   observers_started <- reactiveVal(NULL)
 
   main_form_is_empty <- reactiveVal(TRUE)
@@ -166,7 +165,7 @@ server <- function(input, output, session) {
         shiny::radioButtons(
           "schmes_selector",
           label = strong("Выбрать базу данных для работы:"),
-          choices = enabled_schemas,
+          choices = enabled_schemes,
           selected = scheme()
         ),
         "Для начала работы нужно создать новую запись или загрузить существующую!",
@@ -662,7 +661,7 @@ server <- function(input, output, session) {
       need(values$main_key, "⚠️ Необходимо указать id пациента!")
     )
     span(
-      strong("Таблица: "), names(enabled_schemas)[enabled_schemas == scheme()],
+      strong("Таблица: "), names(enabled_schemes)[enabled_schemes == scheme()],
       br(),
       strong("ID: "), values$main_key
     )
@@ -896,7 +895,7 @@ server <- function(input, output, session) {
       list_of_df[["meta"]] <- dplyr::tribble(
         ~`Параметр`      , ~`Значение`,
         "Пользователь"   , ifelse(AUTH_ENABLED, res_auth$user, "anonymous"),
-        "Название базы"  , names(enabled_schemas)[enabled_schemas == scheme()],
+        "Название базы"  , names(enabled_schemes)[enabled_schemes == scheme()],
         "id базы"        , scheme(),
         "Время выгрузки" , format(Sys.time(), "%d.%m.%Y %H:%M:%S"),
       )

configs/enabled_schemes.R

@@ -0,0 +1,5 @@
+#' @export
+enabled_schemes <- c(
+  `Тестовая база данных` = "example_of_scheme"
+  # `D2TRA (для отладки)` = "d2tra_t"
+)

modules/global_options.R

@@ -18,23 +18,18 @@ set_global_options = function(
   )
 }
 
-#' @export
-enabled_schemas <- c(
-  `Тестовая база данных` = "example_of_scheme"
-  # `D2TRA (для отладки)` = "d2tra_t"
-)
-
 #' @export
 check_and_init_scheme = function() {
 
   cli::cli_inform(c("*" = "проверка схемы..."))
 
   files_to_watch <- c(
+    "configs/enabled_schemes.R",
     "modules/scheme_generator.R",
     "modules/utils.R"
   )
 
-  scheme_names <- enabled_schemas
+  scheme_names <- enabled_schemes
   scheme_file <- paste0("configs/schemas/", scheme_names, ".xlsx")
   scheme_file <- stats::setNames(scheme_file, scheme_names)