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