From f9d84bf245f09a961d179190ae73eeaeb1d6470e Mon Sep 17 00:00:00 2001
From: madeliri <madeliri@gmail.com>
Date: Sun, 12 Apr 2026 19:46:55 +0300
Subject: [PATCH] =?UTF-8?q?refactor:=20=D1=84=D1=83=D0=BD=D0=BA=D1=86?=
 =?UTF-8?q?=D0=B8=D1=8F=20=D0=BF=D0=B5=D1=80=D0=B5=D0=BD=D0=B5=D1=81=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B0=20=D0=B2=20=D0=BC=D0=BE=D0=B4=D1=83=D0=BB=D0=B8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 helpers/scheme_generator.R | 146 -------------------------------------
 1 file changed, 146 deletions(-)
 delete mode 100644 helpers/scheme_generator.R

diff --git a/helpers/scheme_generator.R b/helpers/scheme_generator.R
deleted file mode 100644
index 965c607..0000000
--- a/helpers/scheme_generator.R
+++ /dev/null
@@ -1,146 +0,0 @@
-
-#' @export
-scheme_R6 <- R6::R6Class(
-  "schemes_f",
-  public = list(
-
-    initialize = function(scheme_file_path = NULL) {
-
-      private$scheme_file_path <- scheme_file_path
-
-      # make list of schemas
-      private$schemes_list <- list()
-      private$schemes_list[["main"]] <- private$load_scheme_from_xlsx("main")
-
-      # имена вложенных форм
-      private$nested_forms_names <- private$schemes_list[["main"]] |>
-        dplyr::filter(form_type == "nested_forms") |>
-        dplyr::distinct(form_id) |>
-        dplyr::pull(form_id)
-
-      purrr::walk(
-        .x = purrr::set_names(private$nested_forms_names),
-        .f = \(nested_form_id) {
-
-          nested_form_scheme_sheet_name <- private$schemes_list[["main"]] |>
-            dplyr::filter(form_id == {{nested_form_id}}) |>
-            dplyr::distinct(form_id, .keep_all = TRUE) |>
-            dplyr::pull(choices)
-
-          # загрузка схемы для данной вложенной формы
-          private$schemes_list[[nested_form_id]] <<- private$load_scheme_from_xlsx(nested_form_scheme_sheet_name)
-        }
-      )
-
-      # extract main key
-      private$main_key_id <- self$get_key_id("main")
-
-      box::use(modules/utils)
-      private$testest     <- utils$make_list_of_pages(private$schemes_list[["main"]], private$main_key_id)
-    },
-
-    get_all_ids = function(table_name) {
-
-      private$schemes_list[[table_name]] |>
-        dplyr::filter(!form_type %in% private$exluded_types) |>
-        dplyr::distinct(form_id) |>
-        dplyr::pull(form_id)
-
-    },
-    get_key_id = function(table_name) {
-
-      ids <- self$get_all_ids(table_name)
-      ids[1]
-
-    },
-    get_forms_ids = function(table_name) {
-
-      ids <- self$get_all_ids(table_name)
-      ids[-1]
-
-    },
-
-    extract_forms_id_and_types_from_scheme2 = function(scheme) {
-
-      form_id_and_types_list <- scheme |>
-        dplyr::filter(!form_type %in% private$exluded_types) |>
-        dplyr::distinct(form_id, form_type) |>
-        tibble::deframe()
-
-      list(
-        key = form_id_and_types_list[1],
-        form = form_id_and_types_list[-1]
-      )
-    },
-
-    # get_key_id = function(table_name) {
-    #   self$extract_forms_id_and_types_from_scheme2(private$schemes_list[[table_name]])
-    # },
-    get_schema = function(table_name) {
-      private$schemes_list[[table_name]]
-    },
-    get_id_type_list = function(table_name) {
-
-      # wo main key
-      this_key_id <- self$get_key_id(table_name)
-
-      private$schemes_list[[table_name]] |>
-        dplyr::filter(!form_type %in% private$exluded_types) |>
-        dplyr::filter(form_id != {{this_key_id}}) |>
-        dplyr::distinct(form_id, form_type) |>
-        tibble::deframe()
-    }
-  ),
-  active = list(
-    get_main_key_id = function() {
-      private$main_key_id
-    },
-    all_tables_names = function() {
-      c("main", private$nested_forms_names)
-    },
-    nested_tables_names = function() {
-      private$nested_forms_names
-    },
-    get_main_form_ui = function() {
-      private$testest
-    }
-  ),
-  private = list(
-    scheme_file_path = NA,
-    schemes_list = NULL,
-    main_key_id = NA,
-    nested_forms_names = NA,
-    testest = NA,
-    exluded_types = c("inline_table", "nested_forms","description", "description_header"),
-
-    load_scheme_from_xlsx = function(sheet_name) {
-
-      colnames <- switch(sheet_name,
-        "main" = c("part", "subgroup", "form_id", "form_label", "form_type"),
-        c("subgroup", "form_id", "form_label", "form_type")
-      )
-
-      readxl::read_xlsx(private$scheme_file_path, sheet = sheet_name) |>
-        # fill NA down
-        tidyr::fill(all_of(colnames), .direction = "down") |>
-        dplyr::group_by(form_id) |>
-        tidyr::fill(c(condition, required), .direction = "down") |>
-        dplyr::ungroup()
-
-    }
-  )
-)
-
-# schm <- scheme_R6$new(fs::path("configs/schemas", "schema.xlsx"))
-# object.size(schm)
-# schm$get_key_id("main")
-# schm$get_forms_ids("main")
-# schm$get_all_ids("main")
-
-# schm$get_schema("main")
-
-# schm$get_id_type_list("allergo_anamnesis")
-
-# # active
-# schm$get_main_key_id
-# schm$all_tables_names
\ No newline at end of file