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

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) {