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