diff --git a/modules/scheme_generator.R b/modules/scheme_generator.R index 7b2e261..5c8db41 100644 --- a/modules/scheme_generator.R +++ b/modules/scheme_generator.R @@ -18,6 +18,10 @@ scheme_R6 <- R6::R6Class( dplyr::distinct(form_id) |> dplyr::pull(form_id) + # проверка на не пересечение с зарезервированными именами + check <- private$reserved_table_names %in% private$nested_forms_names + if (any(check)) cli::cli_abort(c("нельзя использовать данные имена вложенных таблиц:", paste("- ", private$reserved_table_names[check]))) + purrr::walk( .x = purrr::set_names(private$nested_forms_names), .f = \(nested_form_id) { @@ -109,6 +113,7 @@ scheme_R6 <- R6::R6Class( nested_forms_names = NA, bslib_rendered_ui = NA, excluded_types = c("nested_forms", "description", "description_header"), + reserved_table_names = c("meta", "log", "main"), load_scheme_from_xlsx = function(sheet_name) {