fix: correct data loading

modules/scheme_generator.R

@@ -1,14 +1,14 @@
 
 #' @export
 scheme_R6 <- R6::R6Class(
-  "schemes_f",
+  "schemes_generator",
   public = list(
 
     initialize = function(scheme_file_path = NULL) {
 
       private$scheme_file_path <- scheme_file_path
 
-      # make list of schemas
+      # make list of schemes
       private$schemes_list <- list()
       private$schemes_list[["main"]] <- private$load_scheme_from_xlsx("main")
 
@@ -67,11 +67,11 @@ scheme_R6 <- R6::R6Class(
 
     # возврат схемы ------------------------------------
     ## полностью -------
-    get_schema = function(table_name) {
+    get_scheme = function(table_name) {
       private$schemes_list[[table_name]]
     },
     ## с полями имеющие значение -------
-    get_schema_with_values_forms = function(table_name) {
+    get_scheme_with_values_forms = function(table_name) {
       private$schemes_list[[table_name]] |>
         dplyr::filter(!form_type %in% private$excluded_types)
     },
@@ -144,7 +144,7 @@ scheme_R6 <- R6::R6Class(
 # schm$get_forms_ids("main")
 # schm$get_all_ids("main")
 
-# schm$get_schema("main")
+# schm$get_scheme("main")
 
 # schm$get_id_type_list("allergo_anamnesis")