From d196715f50580183074190a7f7ff1a8360a9ee68 Mon Sep 17 00:00:00 2001
From: drdolgovvv <drdolgovvv@gmail.com>
Date: Wed, 15 Apr 2026 14:53:51 +0300
Subject: [PATCH] =?UTF-8?q?fix:=20=D0=BF=D1=80=D0=BE=D0=B2=D0=B5=D1=80?=
 =?UTF-8?q?=D0=BA=D0=B0=20=D0=BD=D0=B0=20=D0=B4=D0=BB=D0=B8=D0=BD=D1=83=20?=
 =?UTF-8?q?=D0=BD=D0=B0=D0=B7=D0=B2=D0=B0=D0=BD=D0=B8=D0=B9=20=D0=B2=D0=BB?=
 =?UTF-8?q?=D0=BE=D0=B6=D0=B5=D0=BD=D0=BD=D1=8B=D1=85=20=D1=82=D0=B0=D0=B1?=
 =?UTF-8?q?=D0=BB=D0=B8=D1=86?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 modules/scheme_generator.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/modules/scheme_generator.R b/modules/scheme_generator.R
index 4d66845..58a07f9 100644
--- 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) {