From 5a021b7e8f69b36cc48cfda84d14d640126a3e3b Mon Sep 17 00:00:00 2001 From: madeliri Date: Mon, 13 Apr 2026 20:24:53 +0300 Subject: [PATCH] =?UTF-8?q?feat:=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`-`=20=D0=B2=20id=20=D1=84=D0=BE?= =?UTF-8?q?=D1=80=D0=BC?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- modules/scheme_generator.R | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/modules/scheme_generator.R b/modules/scheme_generator.R index 5c8db41..4d66845 100644 --- a/modules/scheme_generator.R +++ b/modules/scheme_generator.R @@ -137,8 +137,15 @@ scheme_R6 <- R6::R6Class( dplyr::pull(form_id) if (length(duplicate_ids) > 0) { - cli::cli_abort(c("В схеме для формы '{sheet_name}' содержатся повторяющиеся id:", paste("-", duplicate_ids))) + cli::cli_abort(c("В схеме '{private$scheme_file_path}' для формы '{sheet_name}' содержатся повторяющиеся id:", paste("-", duplicate_ids))) } + + # проверка на корректные id + input_names_with_dash <- unique(table$form_id)[grepl("-", unique(table$form_id))] + if (length(input_names_with_dash) > 0) { + cli::cli_abort(c("В схеме '{private$scheme_file_path}' в id форм содержатся `-`, может привести к некорректной последующей работой с базой данных", paste("-", input_names_with_dash))) + } + table } )