From dc3b8f1d08c0ca07152f02aad6d6450639bcc2af Mon Sep 17 00:00:00 2001 From: madeliri Date: Sat, 11 Apr 2026 22:05:17 +0300 Subject: [PATCH] =?UTF-8?q?fix:=20=D0=B2=D0=B0=D0=BB=D0=B8=D0=B4=D0=B0?= =?UTF-8?q?=D1=86=D0=B8=D1=8F=20=D0=B4=D0=B0=D0=BD=D0=BD=D1=8B=D1=85=20?= =?UTF-8?q?=D0=B1=D0=BE=D0=BB=D1=8C=D1=88=D0=B5=20=D0=BD=D0=B5=20=D1=80?= =?UTF-8?q?=D1=83=D0=B3=D0=B0=D0=B5=D1=82=D1=81=D1=8F=20=D0=BD=D0=B0=20?= =?UTF-8?q?=D0=BD=D0=B0=D0=BB=D0=B8=D1=87=D0=B8=D0=B5=20=D0=BF=D1=83=D1=81?= =?UTF-8?q?=D1=82=D1=8B=D1=85=20=D0=B7=D0=BD=D0=B0=D1=87=D0=B5=D0=BD=D0=B8?= =?UTF-8?q?=D0=B9=20=D0=B2=20select=5Fone=20=D0=B8=20select=5Fmultiple=20?= =?UTF-8?q?=D1=84=D0=BE=D1=80=D0=BC=D0=B0=D1=85?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- modules/data_validation.R | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/modules/data_validation.R b/modules/data_validation.R index a23755f..db0f283 100644 --- a/modules/data_validation.R +++ b/modules/data_validation.R @@ -88,6 +88,10 @@ init_val <- function(scheme, ns) { if (form_type %in% c("select_multiple", "select_one")) { iv$add_rule(x_input_id, function(x) { + if (length(x) == 1) { + if (check_for_empty_data(x)) return(NULL) + } + # проверка на соответствие вариантов схеме --------- compare_to_dict <- (x %in% choices) if (!all(compare_to_dict)) { @@ -96,7 +100,7 @@ init_val <- function(scheme, ns) { glue::glue("варианты, не соответствующие схеме: {text}") } }) - + }