#' @export
#' @description костыли для упрощения работы себе
set_global_options = function(
  SYMBOL_DELIM = "; ",
  APP.DEBUG = FALSE,
  # APP.FILE_DB = fs::path("data.sqlite"),
  shiny.host = "127.0.0.1",
  shiny.port = 1337,
  enabled_schemas = c("schema", "schema_example"),
  ...
) {
  options(
    SYMBOL_DELIM = SYMBOL_DELIM,
    APP.DEBUG = APP.DEBUG,
    # APP.FILE_DB = APP.FILE_DB,
    shiny.host = shiny.host,
    shiny.port = shiny.port,
    enabled_schemas = enabled_schemas,
    ...
  )
}

#' @export
check_and_init_scheme = function() {

  cli::cli_inform(c("*" = "проверка схемы..."))

  # scheme_file <- fs::path("configs/schemas", "schema.xlsx")
  scheme_names <- getOption("enabled_schemas")
  scheme_file <- paste0("configs/schemas/", scheme_names, ".xlsx")
  scheme_file <- stats::setNames(scheme_file, scheme_names)
  
  db_files <- paste0("db/", scheme_names, ".sqlite")

  hash_file   <- "temp/schema_hash.rds"

  # 
  exist_hash <- tools::md5sum(scheme_file)

  # если первый запуск (нет файла с кешем) инициализация схемы
  if (!file.exists(hash_file) | !file.exists("scheme.rds") | !all(file.exists(db_files))) {

    init_scheme(scheme_file)

  # в ином случае - проверяем кэш
  } else {
    
    saved_hash <- readRDS(hash_file)

    # если данные были изменены проводим реинициализацию таблицы и схемы
    if (!all(exist_hash == saved_hash)) {

      cli::cli_inform(c(">" = "Данные схемы были изменены..."))
      init_scheme(scheme_file)
    } else {
      cli::cli_alert_success("изменений нет")
    }
  }

  # перезаписываем файл
  if (!dir.exists("temp")) dir.create("temp")
  saveRDS(exist_hash, hash_file)
}


init_scheme = function(scheme_file) {

  options(box.path = here::here())
  box::use(
    modules/db,
    modules/scheme_generator[scheme_R6]
  )

  cli::cli_h1("Инициализация схемы")
  schms <- purrr::map2(
    .x = scheme_file,
    .y = names(scheme_file),
    \(x, y) {

      con <- db$make_db_connection(y)
      on.exit(db$close_db_connection(con), add = TRUE)

      schm <- scheme_R6$new(x)
      db$check_if_table_is_exist_and_init_if_not(schm, con)
      schm
    }
  )

  # проверка на наличие дублирующихся названий вложенных таблиц
  nested_tables_ids <- purrr::map(
    names(schms),
    \(x) schms[[x]]$nested_tables_names
  )
  nested_tables_ids <- unlist(nested_tables_ids)
  tab <- table(nested_tables_ids)

  # если встречается хоть одно значение несколько раз - начать истошно кричать (могут возникнуть пробемы при вызове всплывающих окон в формах)
  if (!all(!tab > 1)) {
    cli::cli_abort(c("В одной или нескольких схемах наименования вложенных форм совпадают:", paste("-", names(tab)[tab > 1])))
    
  }
  
  saveRDS(schms, "scheme.rds")
}