fix: проверка на длину названий вложенных таблиц

2026-04-15 14:53:51 +03:00
parent c50a259541
commit d196715f50
1 changed files with 4 additions and 0 deletions
--- a/modules/scheme_generator.R
+++ b/modules/scheme_generator.R
@@ -22,6 +22,10 @@ scheme_R6 <- R6::R6Class(
      check <- private$reserved_table_names %in% private$nested_forms_names
      if (any(check)) cli::cli_abort(c("нельзя использовать данные имена вложенных таблиц:", paste("- ", private$reserved_table_names[check])))

+      # проверка на длину строк
+      check <- (nchar(private$nested_forms_names) > 31)
+      if (any(check)) cli::cli_abort(c("нельзя использовать имена длиной более 31 символа:", paste("- ", private$nested_forms_names[check])))
+
      purrr::walk(
        .x = purrr::set_names(private$nested_forms_names),
        .f = \(nested_form_id) {