feat: препроверка схемы перед загрузкой

modules/global_options.R

@@ -16,4 +16,58 @@ set_global_options <- function(
     shiny.port = shiny.port,
     ...
   )
+}
+
+#' @export
+check_and_init_scheme <- function() {
+
+  cli::cli_inform(c("*" = "проверка схемы..."))
+
+  scheme_file <- fs::path("configs/schemas", "schema.xlsx")
+  hash_file   <- "schema_hash.rds"
+
+  # 
+  exist_hash <- tools::md5sum(scheme_file)
+
+  # если первый запуск (нет файла с кешем) инициализация схемы
+  if (!file.exists("schema_hash.rds") | !file.exists("scheme.rds")) {
+
+    init_scheme(scheme_file)
+
+  # в ином случае - проверяем кэш
+  } else {
+    
+    saved_hash <- readRDS("schema_hash.rds")
+
+    # если данные были изменены проводим реинициализацию таблицы и схемы
+    if (!all(exist_hash == saved_hash)) {
+
+      cli::cli_inform(c(">" = "Данные схемы были изменены..."))
+      init_scheme(scheme_file)
+    } else {
+      cli::cli_alert_success("изменений нет")
+    }
+  }
+
+  # перезаписываем файл
+  saveRDS(exist_hash, hash_file)
+}
+
+
+init_scheme <- function(scheme_file) {
+
+  options(box.path = here::here())
+  box::use(
+    modules/db,
+    helpers/scheme_generator[scheme_R6]
+  )
+
+  con <- db$make_db_connection()
+  on.exit(db$close_db_connection(con), add = TRUE)
+
+  cli::cli_h1("Инициализация схемы")
+  schm <- scheme_R6$new(scheme_file)
+  db$check_if_table_is_exist_and_init_if_not(schm, con)
+
+  saveRDS(schm, "scheme.rds")
 }

modules/utils.R

@@ -1,3 +1,26 @@
+#' @export
+make_list_of_pages <- function(main_schema, main_key_id) {
+  cli::cli_alert_success("AAAA")
+  purrr::map(
+    .x = unique(main_schema$part),
+    .f = \(page_name) {
+
+      # отделить схему для каждой страницы
+      this_page_panels_scheme <- main_schema |>
+        dplyr::filter(!form_id %in% main_key_id) |>
+        dplyr::filter(part == {{page_name}})
+
+      this_page_panels <- make_panels(this_page_panels_scheme)
+
+      # add panel wrap to nav_panel
+      bslib::nav_panel(
+        title = page_name,
+        this_page_panels
+      )
+    }
+  )
+}
+
 #' @export
 make_panels <- function(scheme) {