fix: косноязычество

modules/global_options.R

@@ -29,6 +29,10 @@ check_and_init_scheme = function() {
 
   cli::cli_inform(c("*" = "проверка схемы..."))
 
+  files_to_watch <- c(
+    "modules/scheme_generator.R"
+  )
+
   scheme_names <- enabled_schemas
   scheme_file <- paste0("configs/schemas/", scheme_names, ".xlsx")
   scheme_file <- stats::setNames(scheme_file, scheme_names)
@@ -40,7 +44,7 @@ check_and_init_scheme = function() {
   hash_file   <- "temp/schema_hash.rds"
 
   # 
-  exist_hash <- tools::md5sum(scheme_file)
+  exist_hash <- tools::md5sum(c(scheme_file, files_to_watch))
 
   # если первый запуск (нет файла с кешем) инициализация схемы
   if (!file.exists(hash_file) | !file.exists("scheme.rds") | !all(file.exists(db_files))) {