From 9dfe4fdda60aa7b26923d57b7ff0ba7e070da5a3 Mon Sep 17 00:00:00 2001
From: madeliri <madeliri@gmail.com>
Date: Thu, 26 Mar 2026 22:26:56 +0300
Subject: [PATCH] =?UTF-8?q?feat:=20=D0=B4=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB?=
 =?UTF-8?q?=D0=B5=D0=BD=D0=B8=D0=B5=20=D0=BF=D0=BE=D0=BB=D0=B5=D0=B9=20?=
 =?UTF-8?q?=D0=B4=D0=BB=D1=8F=20=D0=BE=D0=BF=D0=B8=D1=81=D0=B0=D0=BD=D0=B8?=
 =?UTF-8?q?=D1=8F=20=D1=82=D0=B5=D0=BA=D1=81=D1=82=D0=B0=20(+=D0=BA=D0=BE?=
 =?UTF-8?q?=D1=80=D1=80=D0=B5=D0=BA=D1=86=D0=B8=D1=8F=20=D0=B2=20=D1=81?=
 =?UTF-8?q?=D1=85=D0=B5=D0=BC=D1=83),=20=D1=80=D0=B5=D1=84=D0=B0=D0=BA?=
 =?UTF-8?q?=D1=82=D0=BE=D1=80=D0=B8=D0=BD=D0=B3=20=D0=BA=D0=BE=D0=B4=D0=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 CHANGELOG.md              |   1 -
 app.R                     | 191 +++-----------------------------------
 configs/schemas/main.xlsx | Bin 11451 -> 11659 bytes
 helpers/functions.R       |   1 +
 modules/utils.R           |  97 +++++++++++++++----
 5 files changed, 96 insertions(+), 194 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 1882a43..fd217da 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,4 @@
 ### 0.??.?
-
 ##### features
 - added checkboxes input form;
 - added button to reset data in forms;
diff --git a/app.R b/app.R
index fbeced8..5759129 100644
--- a/app.R
+++ b/app.R
@@ -54,7 +54,7 @@ SCHEME_MAIN <- readxl::read_xlsx(FILE_SCHEME) %>%
 
 # get list of simple inputs
 inputs_simple_list <- SCHEME_MAIN %>%
-  dplyr::filter(!form_type %in% c("inline_table", "description")) %>%
+  dplyr::filter(!form_type %in% c("inline_table", "description", "description_header")) %>%
   dplyr::distinct(form_id, form_type) %>%
   tibble::deframe()
 
@@ -179,148 +179,9 @@ inline_tables <- purrr::map(
   }
 )
 
-# создание объектов для ввода
-# функция
-# create_forms <- function(form_id, form_label, form_type) {
-#   # check if have condition
-#   condition <- dplyr::filter(SCHEME_MAIN, form_id == {{ form_id }}) %>%
-#     dplyr::distinct(condition) %>%
-#     dplyr::pull()
-
-#   choices <- dplyr::filter(SCHEME_MAIN, form_id == {{ form_id }}) %>% 
-#     dplyr::pull(choices)
-
-#   # simple text or number input
-#   if (form_type %in% c("text", "number")) {
-#     form <- shiny::textAreaInput(
-#       inputId = form_id,
-#       label = tags$span(style = "color: #444444; font-weight: 550;", form_label),
-#       rows = 1
-#     )
-#   }
-
-#   # simple date input
-#   if (form_type == "date") {
-#     # supress warning while trying keep data form empty by default
-#     suppressWarnings({
-#       form <- dateInput(
-#         inputId = form_id,
-#         label = tags$span(style = "color: #444444; font-weight: 550;", form_label),
-#         value = NA, # keep empty
-#         format = "dd.mm.yyyy",
-#         weekstart = 1,
-#         language = "ru"
-#       )
-#     })
-#   }
-
-#   # еденичный выбор
-#   if (form_type == "select_one") {
-#     form <- selectizeInput(
-#       inputId = form_id,
-#       label = tags$span(style = "color: #444444; font-weight: 550;", form_label),
-#       choices = choices,
-#       selected = NULL,
-#       options = list(
-#         create = FALSE,
-#         onInitialize = I('function() { this.setValue(""); }')
-#       )
-#     )
-#   }
-
-#   # множественный выбор
-#   if (form_type == "select_multiple") {
-#     form <- selectizeInput(
-#       inputId = form_id,
-#       label = tags$span(style = "color: #444444; font-weight: 550;", form_label),
-#       choices = choices,
-#       selected = NULL,
-#       multiple = TRUE,
-#       options = list(
-#         create = FALSE,
-#         onInitialize = I('function() { this.setValue(""); }')
-#       )
-#     )
-#   }
-
-#   # множественный выбор
-#   if (form_type == "radio") {
-#     form <- radioButtons(
-#       inputId = form_id,
-#       label = tags$span(style = "color: #444444; font-weight: 550;", form_label),
-#       choices = choices,
-#       selected = character(0)
-#     )
-#   }
-
-#   if (form_type == "checkbox") {
-#     form <- checkboxGroupInput(
-#       inputId = form_id,
-#       # label = tags$span(style = "color: #444444; font-weight: 550;", form_label),
-#       label = h6(form_label),
-#       choices = choices,
-#       selected = character(0)
-#     )
-#   }
-
-#   # вложенная таблица
-#   if (form_type == "inline_table") {
-#     form <- rHandsontableOutput(outputId = form_id)
-#   }
-
-#   # description part
-#   if (form_type == "description") {
-#     form <- div(HTML(form_label), style = "color:Gray;font-size: 90%;")
-#   }
-
-#   # если есть условие создать кондитионал панель
-#   if (!is.na(condition)) {
-#     form <- conditionalPanel(
-#       condition = condition,
-#       form
-#     )
-#   }
-
-#   form
-# }
-
-# GENERATE UI ==================================
-# functions for making cards
-# make_cards_fn <- function(sub_group) {
-
-#   subgroups_inputs <- df_forms %>%
-#     dplyr::filter(subgroup == {{sub_group}}) %>%
-#     dplyr::distinct(form_id, form_label, form_type)
-
-#   subgroups_inputs2 <- SCHEME_MAIN |>
-#     dplyr::filter(subgroup == {{sub_group}}) %>%
-#     dplyr::distinct(form_id, form_label, form_type, condition)
-
-#   print(subgroups_inputs2)
-
-#   bslib::card(
-#     bslib::card_header(sub_group, container = htmltools::h5),
-#     full_screen = TRUE,
-#     width = "4000px",
-#     bslib::card_body(
-#       fill = TRUE,
-#       # передаем все аргументы в функцию для создания елементов
-#       purrr::pmap(
-#         .l = subgroups_inputs,
-#         .f = utils$create_forms,
-#         scheme = SCHEME_MAIN
-#       )
-#     )
-#   )
-# }
-
 # get pages list
 pages_list <- unique(SCHEME_MAIN$part)
 
-# # get all forms df
-# df_forms <- SCHEME_MAIN %>%
-#   dplyr::distinct(part, subgroup, form_id, form_label, form_type)
-
 # generate nav panels for each page
 nav_panels_list <- purrr::map(
   .x = pages_list,
@@ -328,38 +189,6 @@ nav_panels_list <- purrr::map(
   main_scheme = SCHEME_MAIN
 )
 
-# nav_panels_list <- purrr::map(
-#   .x = pages_list,
-#   .f = \(x_page) {
-
-#     # get info about inputs for current page
-#     page_forms <- SCHEME_MAIN %>%
-#       dplyr::filter(part == {{x_page}}) %>%
-#       dplyr::distinct(subgroup, form_id, form_label, form_type)
-
-#     # get list of columns
-#     cols_list <- unique(page_forms$subgroup)
-
-#     # making cards
-#     cards <- purrr::map(
-#       .x = cols_list,
-#       .f = utils$make_cards_fn,
-#       main_scheme = SCHEME_MAIN
-#     )
-
-#     # make page wrap
-#     page_wrap <- bslib::layout_column_wrap(
-#       # width = "350px", height = NULL, #was 800
-#       width = 1 / 4, height = NULL, # was 800
-#       fixed_width = TRUE,
-#       !!!cards # unpack list of cards
-#     )
-
-#     # add panel wrap to nav_panel
-#     bslib::nav_panel(x_page, page_wrap)
-#   }
-# )
-
 # UI =======================
 ui <- page_sidebar(
   title = config$header,
@@ -371,7 +200,9 @@ ui <- page_sidebar(
     textOutput("status_message2"),
     actionButton("load_data_button", "Загрузить данные", icon("pencil", lib = "font-awesome")),
     downloadButton("downloadData", "Экспорт в .xlsx"),
-    downloadButton("downloadDocx", "get .docx (test only)")
+    downloadButton("downloadDocx", "get .docx (test only)"),
+    position = "left",
+    open = list(mobile = "always")
   ),
   # list of rendered panels
   navset_card_underline(
@@ -462,17 +293,20 @@ server <- function(input, output) {
       # for `number` type: if in `choices` column has values then parsing them to range validation
       # value `0; 250` -> transform to rule validation value from 0 to 250
       if (form_type == "number") {
+
         iv$add_rule(x_input_id, function(x) {
           # exit if empty
           if (check_for_empty_data(x)) {
             return(NULL)
           }
           # check for numeric
-          if (grepl("^[-]?(\\d*\\,\\d+|\\d+\\,\\d*|\\d+)$", x)) NULL else "Значение должно быть числом."
+          # if (grepl("^[-]?(\\d*\\,\\d+|\\d+\\,\\d*|\\d+)$", x)) NULL else "Значение должно быть числом."
+          if (grepl("^[+-]?\\d*[\\.|\\,]?\\d+$", x)) NULL else "Значение должно быть числом."
         })
 
+        # проверка на соответствие диапазону значений
         if (!is.na(choices)) {
-          # разделить на числа
+          # разделить на несколько елементов
           ranges <- as.integer(stringr::str_split_1(choices, "; "))
 
           # проверка на кол-во значений
@@ -482,12 +316,17 @@ server <- function(input, output) {
             iv$add_rule(
               x_input_id,
               function(x) {
+
+                # замена разделителя десятичных цифр
+                x <- stringr::str_replace(x, ",", ".")
+
                 # exit if empty
                 if (check_for_empty_data(x)) {
                   return(NULL)
                 }
+
                 # check for currect value
-                if (between(as.integer(x), ranges[1], ranges[2])) {
+                if (between(as.double(x), ranges[1], ranges[2])) {
                   NULL
                 } else {
                   glue::glue("Значение должно быть между {ranges[1]} и {ranges[2]}.")
diff --git a/configs/schemas/main.xlsx b/configs/schemas/main.xlsx
index 4c83c5b8cdd524877d5d4cd91c36c6afa7aa68cc..0ea6bf26066c45eaf6b4624c9b594284f2a1903b 100644
GIT binary patch
delta 5766
zcmZ9Qbx;&wx5gKC=><uVZj|nhr8}i#5kb0Ja>=DZ*##+)5|D-kWa$o38YyW>=@hA}
zb7#J9?tT9{Gv}Fi&U@aOXMX3jnk8D)e!+(MFV(`+fdIe;E&%Wd006vp<qPoecCqpB
zaN&LJ=2~gA=)NdU9QwlgL4Led;kk)s+;dY(TOh0QYRmAUL6;g*S&5QQxt}Of))!_A
zEB-KXuOC~#$$DY4rY+{F_EtzzTF3`38T$DX*Fi*l%4h8|1X-m^<?uqT*ofXkb0&<6
z4El@J&D*?@kl;e~`|i<b*xjb@Qo>DZQ~N9+e^;R$=}o~nZO2yO6fjwB3d|^^5J|5k
z*PN~b6$P3Ivj4)*deT}}(l+rKH$oh{hzCEfuK3%ZY!Pn)W>aOh@gt3nJ(UJYDeUT!
z^^O-*W)?Mo^%N6JS)%+FV~6hRdM6lGdj;b@p;tq4_y>XqP_K2$(}>;GvTTRKg9U{=
zfbc?^Y}^NHrJ)LPS0W!z+O%X)@M<|c*tjQ@g)1O+Q#Oj^cFGY{EaJ!({<EFr+q{p^
z1!^kNWIu=tnp|ys<W$9Jv}>*`m9=GAFFh?|+T?QStax5gwoPG**Q8~j>HrItc!9^`
zfOWuy1~8=_7r5I@^_T`m@|UE)DlACrcVm%{ZEX%S_5u1^HsyP|jo$C0t;bFC`Qj*4
zva!yqTMO%_gY;u0|IEoBGv?<SS$YclE5~M7GVj2*PK+-YzATiij=1k@pDUoxYqjsA
z{GCcjBN<sNzAtVwpnyM>`C)r!8u)~HV+ew>37kIw3Lx}nD_quut<F713-t36FL>^h
z7H0E0Pe!POY*Fxb?gBie&F+O9aLQiQB~J2;s{Gi_9blt3Uf`~{`AF-XuaG$|QBWRa
z>UB>mMDZI0Ty%iIH-!ez=2o>j%$I#^La%8rSI5TD4?4`ke}9i!gTc4!!F~ieW5JyQ
z9o!K-Cu_LMbB2`)cf%h@N3LuJ`9p1J++VfAJ*4tT(BhYO>g$7ZG;{fszVHzWM?%zh
zFyYC?QO%2v(ECfuh(yb!cEuDwZP4BmuRKHnd?SadN^l25gfK<6yQD^XPQ}XCJ5xT4
z_6aGCuFU=-whqrAtoCV#lU%$OOB0!pUz@Nxi)y-RC`07KMh0yQ;}eK<f}MJdC2sao
z@3!-3LY#kosheEa72Et!meL$%!e!D|FwLZ!(pwiA9YGXrDy!Gt*Sz8K<3zD#eKO&;
zZ)N)hFr!~YzvPlpONU{oIrn{yi}H)ez{1mx;F}d%h}=1ah}2}De`vAo?Y*~GVDXW1
zOLKb`-7o3(q_o|W`>E@YKZDG7q0*Rlwh9w^o+3no%0*hE9YDleAUWzSz7Qt<aWhZ%
z0S*9A$BY;SGr-K<Jc`7L@53hVaQd#;pWr$bl~k}tmrTBISXe#?E$MR_PwT?i9mzZF
zT=|VvJLpPeyudU3^Q0|MTBr$qcOLe&(!|`@Da?G~)%x6H8MbR)nRf02$U|IpwOd8`
z#uV@9DH(Kup`jkKboXcEz``o5f(ZHjv8T9^=8fKLzYR>XDh((zFvH5XgBLcxy(v(=
z=5j4qm5??dCA*WU4IRWQ85Eb9kL)d^?O|Ctnu>-8ddp54@MI!|6J5qTC5x43Jf+wb
z=jb+07tzfcr?wc}c~jg~5OIS=N%q9ScLr7iV^ni@I=A9=%bLHpdtfyry}R&Y+iYZD
z`q3{uPgoxQd+jri60s?9CyA`fM>dMLPU<fVL?h_9uC@)CQ5o+R1<u0K%*F+64>>8f
zeLpumWW}zrv%dA&tn8Udr~FN9d-WF9h{rN$R%Lv4VSiB*8qliw5}svbtbV0=lgCZp
zP7@pyFaq3h(OBW!L>Uc^=?WLAYs=%-@jU)876`jf#$br}2^e9P)&I5eDco!;Q<5*N
z=q5-T1qOxpdp$3$ITz~6xb(4_y?%Q)Y9dEi9GV3yeOe8q>_^&4`_)=AXQ~_$Cf(;)
zbje2jnKFi5_}FUp&5mqO2BmPdjG{Uxp`ie~m(ar<Sy_ih1&|QiiROLN$K8>Ld5Un9
z8LWZVpMj~0)Rf)&uFtL>Aq|v2o|P<dMJpl)k9wdADZhklA*Ov}Zd?*3tC1>L!*XCO
zhm(Ti5HdxX%%Ad#7=y7r21I^Q!;RaL^j;2>F_GROtkOAeXURN<)K*7Sdkj*}m+(TU
ziuuKnkKhirTv?!qBhW(;U-O$s(GEp5uu@abm?#Ebaq3gPZHzHl`mLc)nXl;WURn+Y
ze73u{m-mjCuVyr7GD2V}*?A<%dGhbb^zypN$?qH1dRrakF79%HT$xF@$mFHz>K_y9
zwb?0H(vfBpN6(!PO#~{j+oT{viHV!y%#ASLk2I;86)MtetMR)q86126ayF%if<eF4
zhBP*oqvvL2i1%GEB5)6y87~yc1ZN3<oDa!Qk>KHy%tyz3iOT=_+TS|bjU{$da)yH&
z0#51_`CG>~T85YuJhaLdE{MBh^yyN_iFhhVNkmnT+=p6Xjy8iMHoLcWh?X2yfG2Oz
zMuPi|Ryg8qc-a<if{hLfPEKzcY)#MS$>Xf35Qc2xpMR3&9JhYtr}HqDOGIMA7CA2T
zqTOkR=j3opy0Hbhh2ErVJ)UA>SBlIpXMdLM?1=ptpVG}PoD92Sptj{m2Fa^Hra=6P
zg|YnXZ_JFL&qIz(9Q9DL-9|zC#&>K?zg=e%<3*Nd=Ue)A^eFqtx{SkN<pZ@t*Wx@`
z#E~p7<P5iO=B_ad&7VD^e7_PmFzVpvQ5#QNiC)Q9N-HdXs!r)3XIHF^K{b(GDPj5n
z#84A13)U$mEz$;7`;!(?akhjfl1(It+1n`D)?$BhWO{;BdoGNX6IuCFEjP|k<&Rbp
z$7COOH+?lw=1HW+ii%AG%r#mwqR$ad{jr6@{&%QW9lJdT(J|*y_t)gn8SXhBVUo8$
zi?ZyH`^K3szsD7}GuwAxjB8c0sT{OQBinoE!SaXm;5QWNN%ldyfvP;CO%xvDwn`B%
z>a+#-T0&p-ncEmT{Duo<r&aHJdA1xOVrUuE!4~h_9E4Pr*W@FoVbdD{hZD0WnHiDK
zj4T?Yu-Vec-I~6Jb*YZPDg-AfXs1Ztl=ugXp6Ey72J_n&l7vhv3H7F%oKAq<S`tg>
zeq7?__=%{A`D(%BzaGA{cg@mH@|YGy^=GbCr6NC4Ig3(3@c9F@bi2FFbzkZ+tLx9a
zW#w7+3jdUJ&htAn57tAW42A9q{hX@Bu?1!JS%UfF|6U!GAlmhZeD4(DzLS~PBk~Bt
z{`J#^C;?0@8$(54TN<m1(Dc4G5?PQVQbOjHuH7<Z{jYHC_a#v~r(Y@w_@VCw=s*zV
znGNW?e<A`Weq!2*v$K#$!^a}Mv3fPm%KF<V&xDFS93SR37bUQ<w9k<g&3Wwz7xn8%
z3@|8I#lf4QGuW0eg+K}P6rh?(Ex&=iR5E__pX);FJ!!ZE5`>znUjG<xwsjWA`PEw3
zWjeRj9qxtcNDl@*+f;duv<DtC(qr`LB)8_~<NV6pJIbDc@TZ}Iz9fxdumMHPzUiYV
z)svRP3t(y2<Kc|Z0M&&7{Qg0TRQ~-mJ{4iyt6NF+RENkd&zUHB$!a#xskRHw@*2O|
zY{Gh!4XTq-B{S3E$#d6$*KO(KlX(p?n46KPHWD}0zHZOO?#*4*36|`rA;f1K8CMnL
z@{mF5sGnQQb4qT;3CotO_}?NHo%+yt>Mj)-PT2RxUHoByD6_{Ex><7yI9E3KsYMh@
zO53GUTp;V#5-k+|Ej0yy?H(<mM$^?Vo<b(pxvs-ItlNrgZy<J9|MD3w#+#k9-nh-J
zu>N}%6=+>G99d-|9={BeaF{NK;5WZtdcXEqD&FOf$mr;?4!kjVCDFyb;@MPN^wpD$
zCfMLnPOx&_$T8)gV9So;(l1|DGjgD$Q4bnkiC-bTcjBcztci=qTZ<UW8~L8Rhgyuj
zSAkYyFY@669l8y&l%671<EI>VM0=5Za!;ERw)mX6519FW3F^2kN&@bJi6F0DzO8o&
zx)jwQED>2TGjn|*ioW?v?GFz?fSx80gvbHnBZ9byQ6O><F09Rk-c}6+06_mL2>%!D
zeS8C5?R@@${j|x*U$7@%dc^<0=vcE;r3OD>4#UMA=fGCO&g9|I7u8Q7e<s=JFz!cr
z7keFRHd^@b=2oANV?M)R&@0zoK>p2f;Ne=k>Q&lZKt&pLfa!EJDq`14yd=VGz^7*m
zc$NxVoKDa#%81*H^M>PWQO|C*uGMs&yP!*c+eg$110rXDK1_Bqr~^rhRni&CwjQuO
zKCcFA0oRs46ff!2+>P_ofrQShcX9kE`JME64n{UohIi@dC-n+xUvb&ItLn6hz6Q<u
z3}9vJ=eKwRkyKn_q<M9u$2qRx-7E&zbXFKy+g3~)z%_>wYxp=7NhVdN-=v6ne)i_a
zxPM#wSxsM-S_IEAoj%i#Q_|rq(}~Ai0<m|ILS{5nF9ap{S>#M)4?<tvl4;J6tCc`S
z_Ge*K0dYNX4hy|u100la5Rcq5OOYPE_#6t8^q-9<7<k=~Pg$7h(bYL<`!mdVY9#FA
ziS$#w#D;3~@H9E(Onw!vsBr9Emifh*nzY9;%x1qz=1N*N(CAglnhVBsK0smDxU683
z6%4+4!_4}aJ0@kK$zzt{S(?143#fQj1{K6RzHreqB{rR#W?7e+dJ(|5g^I}9V;I!u
zNBKwA($;tqF}!<>USg`84#h_gHo+D=hy>BBd#J|9MAmq+m1M=SWE+U*?Wd0r)aR!d
z9G{uiEG^l)F!u+&NPoK%w`E3LVn+uJC=+41Akqyno#F7%1OmKKidP+a4{SBa3N-S~
zc<fznzJx<ud0XB5geX9?7r9(kc<E3V+s+AY;+}eLrHJhM#JS;`O`O*>4_g(Xi&;^2
zsco&5^$e4!uH$UN&RaOZ?Cz~>Y9%x@@~xT-$jQ8_#l)T8ihCLrYMLR${T#YSv9rtG
zW^mo{wQo&4qRu^+J{WX+nX7s$RvKI%Q;In!5p--W;9Dzc4oDdMF^69<(?zBu^Yzq$
z5yG^(F+Moscl!()MJEw;21|XtD}pW6K`<6qJF5LAS(3wpZ_Ul%U4gqR@a+D>4UC~f
zHU#}}d3<pXX$Cf#4Q2A+#q5VM?qc|NEa(=Eul$(Gu6Sudil_q~g&#r>z1Ef~M%*aq
zUZj);jTCr0xfty6jlbFB$)5_^PEtuBXed7Qmy+NQI9T!2$zW5ehe0o-&>PPc!C#>_
z?d1aQp!g7nLcci?gLhuFF4XA@6(ew~j}`}R)P=aZY0GJHX4g`<QSp$Jkdd<*Qm#x(
z_U}gf&BoN&9YU7~*7M1+KYj0kgg39*R%SgPVjc#b69ckScoD<G7nO5V{l<UauF*5m
zhaYv~D5y?0=ri!aLFy>qq%HD%if}KJ=G+<IgKeS(?YH>N-PPJ(GI`_NEZqNH@VfG-
z(T=3?UhhN{Zoe_@HIsPv1-m|fHr#1$jXv+X$IErrZ5f&nGKVPcL)Ip1h%W4;L`vre
z|0KR-C%rs`O5YOw8%FR<oYlC={(21>@tTni*6qHiLflR{1aW<hYtEQ%h@(BF^qjbX
zLoXi-Ul_}q%y@c$S>r7j4Mtk*15Uc-=|D2rLj|!`bh8?EBhSNLUZtMeI~kJ(I1wlZ
zzft3fmGap7I~Fw_rKmCmGf#5I6{TD$7i|iVT%Rz;HAyY=J?gl*%@`CMF2Z=Uq2}8L
zD`h@A^sfn-92Fcsc1QZP6(ENX?1j!^ZTe6uxpBC<^!>YWnzve?bIj84WryGjL;7<+
zoEzOmRi)#kw*~`QrIu%p(^R`REJF;qL;R+GHKFnsGnS%D>z9yA{)jM2mxchopP?j@
zABIZf%VeK;I#ppsl^d}utc}nsRLP#eV!c)qD_gkx=M*S6i#pUQGFD&~8?MM$K{bU%
zTUtU)JgZy*$=dC^1L09bc_49&JZn(el^X*G1E?;Y^X;|Mn`X-jG3Ua7nF7fHhw81M
z7ux%BS%310E(k=7$TGXyoF`j)n>t*LOpYLJR~x#J9}nmj-hq(l+jC2_vBw2W=(hy0
z(g9q}zGrx}+M=iW`}X5wu$V7F*G%ZQRsz9Nen1d9eYpm>#vVX8Fv&6%>|7o&{ng(J
zdvnrm$(<Y&QPpegI89}r#mu^sX^K%P6Y`Ej0dx5i*81l(!*%JJB+0sJMOh(>P8^QD
z{<mJu@j^S;(&a2&5=`qvge-cn?B&KnN#=}`5U)>8RFMYzo4twU#a{-&IwZ6d;a(n`
z>vX1hdz2UZ<n+`V{4}#9;?4P|#xd^2&dA`=)r3<QDy85{*uh}N*~Jd;6wVFO5R*iE
z?awspDzJKLj5lMcB%$jv*szaP)!@s`_kl*QHcU=OZ0C8VtXX6Ac@s3uFQ~FK5`PoS
zU&~NVq@R-^`th(yPbk#dJu}Q5KbLyc@WI|L!c`Yz&%>aFuWH+8Do}$3_k&?)1yAqu
z(tFa-v7vtVD|KEPBA@TO{A1QHx;M<ittw3RQVG33H%4ejjMsw;spBkYY%D8cV2Wg~
zR2=%WIzbZREaPQmArn5ZGBWCzu`CIZk}p5T=k<^SmCr&{6YG(CjB5h}W+?7=(=!!)
zc0TXXM4jeD?zI)g2uWzrKDEw<)K((2KAxxgAyqu;3Sy_*t}?GczBS#?U-W3NSu?P~
zEfxNddpuI&Zlu6Tzb(&MDbWyeh4%=kg`2`O-sJfic#+{-&8`RQ#{44tjG9DPYoT<5
zAZm=GXr{1=<iuXO)?)ssI?Qn)Ujpv+bt9putI=YD8!t{0gWOg~wY11S^`+8#;qqY-
zp?fSG=A*$-t5B!@4za!$M8V(}9w+3YaHZA4`{WMC#$L!6PIEsTuTqyGO*_jhnHmid
zU0xxh0N?H#9668)kJ<Eye;+eTOluV77CV`(xFPxH5+L+c(L2;S>r)IE)TNj4Nz4(>
z&7<y{zRa*%jkF%)pvE5Sd7M_V&>T1$=U(>Z%2=^m#zdXwicg62cE4|+<DT`S0b>pO
zI3)pmId3*jGy9#7rm+FfYE#s^o!OWaRcjryR+ft`4XVM?R3E#W@m*KdC!bdfHTdWl
zB=M}s_qzV1n@qH@qu#oOO(0E$?uRwH)M>}OfGK!ePY%Ni=;L;h$V24z_zbQ9-2&6&
z;l7U%ajOh9z^OS1-}#rJdBel9&{Cft0v5*z@#aTO)JblODhI`>YiDG)9f2W-74Y<Z
z|9*_kPpe28Yn`myMtf${Pc4Qw<f&UrL@xGA12w@G5zUbMCaV$EyoGn-1@a)-$1>^7
z&pZ&ZMs+HIq)(^#t)gF<vkI^oNU|_2{pvgn5YUa<%3Xu4OD8>jDabbz$&UB_n@S%6
zqwdMf>`*7hzpf$zxQS4nPa#0O|Lk%R&73-*Fnj<2QGid4VC5pF`R|?x0C@731^;{M
z5V~B-nA7Bl3@$d>|BsCSmF>_XX1N$>|Ksz2fs*{c*}stm6M~eRo%Y`sYhwTa4wwJ{
a$^Q}Lvmp$*WiVNvArRcm*cY7tlK%sz%H>@E

delta 5560
zcmZ8lWmMD;vtAnM7MJdjUX~D+F6l0jZlqJ{M<X3eNF#zYEGsMsilj)lA_y!U%7P$W
z_y4~4ocrE;=fj*i=Xt)(ndh0AlxJNQh!K3iO-r7$5C;TWB?N)UK_F1b3*lgIKM#9v
zZx5jm&le3Q&%HJzC?bWYWC%meG;SBE*o6g#m2fyydVcA2>S1vh(0M#H=6e!E@mo18
z&AM`E;gdlka*Okq>YB61*Gi3axk$(f>B~E>XJ(5yv`ia1HAODw-(BH<ilL+W_Z=EQ
zT1!)4wzza{h_do+R?t<~@T7c+cZd11fA<Wid{6094w95&ADR8FQf5QY)3yp-!A+H5
zpVVoppB>Cqg>1@<Z%K6T14krMyfP9AF+ikp%Rc+wnk7S__?SI9(hP}WnA-nM(^2?p
zz7r~D-461d<mYAy(|=z79&P`_M-c-&_6hUoTr}<3=v^I{GVj+#1hkrri}lJ_e}zP;
z$;_zV710-L*HgU6aPR?V$KpoV@+T6Q_JwggK8)Ie#THy7PHShHHs^w3&eg=vd&XyY
zcJS(V$8|fwZcFEtrUi8YjqD}GTiP?SbLt|S3|H<-4NI=${N~V>_y{H)GC!c3&Qg~c
z*|dorC)<<Q8867-;PjyHwP|*8f(H0REr#qo^0sC>^moT*xsRtVU;|NngHW(RKW^nD
z{u&Xi<5=6MO1r=7Krj&-<!33{tFP3RyD8|7cc12bOjc=jg75T^Zvn}`PyK01P+BPa
zzT7Ii)`#`gQ2Ghxc4+|=NC}Yaf6P;gJx|%B68jr1tI(}Ld)ZwqY^?OVi<>(7<vC4t
z_rptr7n~3tXm%EyKI^bLVMho46(vY4GvVT+7NYoN*fKASk9Su;nDtOy%gj-x;kA_c
z`<sF<)GPNS^S~^LM_F$F{#2J;z$`39jkN7R(8I5L4;C8!r+cs3+X4_8)o&jntI=2*
zzg7By#BHKOF_|#-85S$u4wn_8<ddKGAL|Squ@6DQhnOB^B|5CK@I<Dn!yf*P(FPFM
zwcXzfyXm`cPPY!5f$-beIAyDnu86om9b9(?->jkt{6t}hp;I|9f0`g?tZu^?@K{(z
zS~`)rawzJ}9(s@P8c2_JL3v0ytcra}_k7d>H-`j^YdL4tXTQZHpzo#Fu89Z}wA5P!
zk}`=Ek+fDO{+240IM4$|>{8)jHH=iBgnob_1j;x&q(<{HeT}>JAbpIp^ur#+Vk`2`
zmlL<tt7g6|kDBKus9Pz0&(1QKHeFXzM4dIQwTPav^O?=PbkQ2YQFjFoxLT42{N=Ej
z&WvZ#dV(&veXsV*Y&~y5sh51oWOW(cdz(bTsbHMstGIepJ|Eao>=M4lNc%pO2!c%}
zlMtAEg%1LmGl4+#AULZ47$}A>r7wz5Bpg0IWny22bGT5N5@Q``eliaX>yVhh6<C*Q
z8?UYJ4jUpv7#kBd;z~)K04I|nvY`tpGfOcuR;GMOH<=;&q6H`J1=)wI+l_L6THl!H
zYFQ|1l9dnlUz}7=>(;edW6_g8$kiPlc^yiRTiB?ee=rK>4>!`_0&03cyFc2s#2PQr
z$WdfWSXR)t&Pot5J{NH`@WC%|WWdUGV<pmbpZaY5$Fj^dW;vGHxKT1N<*5OOeXo`m
z8JVVRZ^GoLCVwYy3npUj-PqFOn}G`*UALciCfvOR*_L!))cvMHx`hA=66}$Q%3oK9
zeJTeEy?IMG;p&4d?*W>?iG~ZNyl{$du>Kcab3XkiIUi4vFY;7R5VX3;r;qngzF(Mk
z4!#K#C9XM&?diC{<sD^5q)QQvBS!j_o1$R3K^&@7b+4#MpM|{?m&vKY$2mPDw%M;j
zg5(|=HhH2UUh%IQ-0)V`+P)YCiK>0GDHk!~)zXflHFCb7vj#*2xQN|SY0f@%Vd1wE
zaRJI(vK_|Xik<Eleky=n>CW|UM@?+YrXzjMfXnbYCk$pZ<(SU6-#AbHrI)EI-Jug1
z-g3^iJ@u%pS7dG%4|+7Wu|8!SHTz_Y{E=(Icij4OhoYikD(bano{mo#sjYz3*7{-U
zcFz_9nLn<@o`5(C?YKthTDc&=GZ^??gIad8tCD`FvV*zGcU3Q2O1q-NAHrAYuW6Mr
zqWfEYIcTA+uPfW3SQ#CvqQZ0^Wcs@rjt)I8y10G6>R{Qht=5GoNRR$?Pyc<ShiTsC
zADg(p|98qUpY~c3A-T!zVL=!tAGE4cmA44)NCGheJ*A6p_&N^`c`RCWm}xme`H0p7
z*oA2(XE0~KLT}wCZFc%GCmWOd{x+}e1Fs_@KVRNkm!-_x7?lb)%ip(sU)s95YZESw
zTv$hR;qE@`!KCEdZ*54j+{(!wd|ORizEXPiR_%3KoH*rrd!a^ZZl**pJ7ozs7TH6}
z?Ihs9NGn?|D=8}zo-hX)UDT4=bA<$uEJU<8)mqSqVJWh4RBj7oMi$v(l{^_o=7Kw3
z)g(i2zutBX5X9jY4RN_*2id&Z)Y^?9q~tf5!Y|x<l$}ACchi9j7lve$n`<zK)~8Wq
z$?h(?(OtwpS3ztJalH=D%?j^PI%c(GU<24MAL?7b@A2MX@4GLVxWo@_W_gNWT&2sH
zsN}X)mUajZqW2MHrNVj>hEfY?%}1}PV4LoDMk_C?5q=NE;X%y`;G0{;2@uI3%Mp?L
za#nghM0TQRds_o@lp5hL*ycZcy0}3DN;azns`z;Ud>IKPx_BlF{RK3H{GoUh5Z}tb
z&Wq#~vf-M8K6<x8Vq5E-l%_?`CIWt%Oh5p(qvI+K$@%h#Zi(L6uzyIanmwI;6ub(N
zfo}xi(1+3|3fT<=^wbuiMbWb9B4f~ZCYsZXvyjDRciF_aHR#;#j|a@pWBt0_a_iXo
zuhZ3Jmhk_25cbRKNa!nHgY@zNv}k!gN9wM^h4wBFv&qW@9cG<YDc=~jq6CqT$A%`Q
zXe_)g+>FAuxV7AT|1H15tqz3UH}xH6j&u=wZ>cocPS%gjkeWxg-gkujYufE`YoE2_
zw{y|cF3znRdor+=x<a0=2L7SUw6ht_=WDH8X6{t3rH0Z85?f&r_WrU!2#A>6lu|uw
zP;RY$GeTr2*7KvwG2ASgO3;q(nzQ%qRh-C;T>e5tDJim!ksNj9Ww8cJ66q5~TvN-|
z=@I(xv}Z#%rP`g&2c`6k2Mpp4pO2rYU`jSR@}8f&dZ$YDz4~O=_qSNx8NODMmbStd
zO7pRfYs@dhoq72!Wq%l8++24!CRVhOf@9u2I43d+?mHUsC|-Y1+PJ^*r*OEm`$)%q
zk$8D!y8{i%TP<q4YOD}GUUes4y?q`-Ag{;$)m4Uv<$+$T|0#0E?`GEhzG2=fm0nb_
zXS}Ni0#im)Q+iTim`>o8Pn1KhVV6!?PR{iEMf1*X3Of$iIMRRw?jMMK9gh5zkqlqU
z1x|A)NouX-8JM2KIl1_To6qUn$;JurpD})s(W~39K%xQ+9urKNR?+B7<g;^<S=9_g
z42M#u9EAEZmfwa-<oa!FOXk5KIy};d7RRzuRlSu|fAWod!+?+lS!Rh}OV`VHWJ~W-
zyo~^Mgg;xN9e<LH_g~Dc3Ww4~nsDzL_ziCgvV_UYcV40%5L|qBQEL6^tXN%xrg3HE
zH)YPXU4hPs$ue8`tAb)W@K=JF0u-Ua09{Sw$tuSW<MIoo&`qth>nMGQfrNZ;pt*_;
zjG<5eG-XaTls|m@UdO#{vCluAWqQ(=6^VUD4$s1&folp-yg#PFB_v{J-)xb^1%X<~
zvYBXsajzvQif&=VA?t3_u1yxnsOk*|t3tautA%ZItI7`*KEv|exfRt(*k7hIrn8R3
zZslV&CPSoPd-_J@xE*Q#_Ms$;O9G^Stte16O-2CRXW`!YFx|~I?<5AH>VD^2WYOX#
zPSt{KFyZ6w<>S!(==N$9k;Rbgoky>Q!)gw|3$^%uMSDtKQkm6!Ktr8HjQkAP9z1VB
z6j|CDi@O`CdQSSXcPYgc2=<kaOk&k$hJ3DTEH;B?JL>XgF{C+xP2@VPMTDk`vFF<u
z%72=7WgVrqMR_A>D_y$bCRtWT3His^2v6%g&Y@K!-QNRhm&^~QY!WsTP#a9efFNM~
zie>?OmC~t?NjU2x#p6Xgu5DLyKW+w&oyXip5Zr*O+1{`(@(696=+S_Bwf=444Kf4z
zKiXm9W71oFnP_5LBC|9R<F%kc6Tz1bAC;Ak$lc$m(7q`OYFhrNQh_x&6H-cDqq^Aq
zBq}*7cfP!l5GAhO|H1O~L_=2a2w(?(w?Tu6Y#3^=h$%J0(&xxh6MW*i=mcUd-g>Nh
zxgXKvPrrkTXv02)vQ2$C?K_baFV0qaiLtM^H5S;eE!fN0;C=m4Qqes6dxyrjhRmB~
zj)sqijDD*l`xsmm%cpZ~$e0w)B<j^P<;gUAd7qnts^;Eb@Tkm%Y#$*ZYFjMecth$z
zxFliexPk|cHf*ONDh`<j=2vJ{e#<skg}X(BG_M1OJ*wP=xNv_?BUoK~A64vIdj|)Q
zMvaSBN%HUASTNf*YsEI!HDrIc<<hT9CS2lvUG0Gi@l;<spSJuh*FaEQmf_JbS`sxB
z)TMAFRln?oGY?&^Ia<V<z-a(L+9=ri58Ff2dBzm&YJ0rUZo)&W?n!FjpSr9K-qqev
z?9ebxj=TC<*t0$d{NGHl3j>#3yVGzi-cmz{9rF@$*^0Rh0RaD)gDf0;)f!wPr)gt5
zS)zE!)B0CC`bnt*?p}OtENdIFWI|nx;mKXuHNYY#AKrO?d~|syUjx*4ezhAji&IjO
zqpAUQnX@Fw?RtBZp?>bqn2Y(AqcGpqpXf1dHhFseaOxi3a(vg$sO5{ItBQ<HFg|S~
z8~g+T;|WbCk1Q=ax?`3;uf;U*Per!x2m1|GC1{LCTsMvod*Sv53s)E|K#lN(zCzP1
z59Z%kH_tRSDd9E8iva+FJ(K8;tj~5|kA3y{rhb6vU4Bv^txQvHeDtCA4d;VTzu(IF
z9xA+LvmR|Hoy$4$ZotJV|8XH!Fd;UXT;lrzPmZjSlToix<aKKGtbnhq%W=y&>LNNn
zK9Wok;~T4}ymrg>1RCt#^&_Loxp|gfw+zqq`~#2mrd52CgOjWrBkYy_i@_|G7%D4o
zFy4m6>v$Mujo5}X{h;&UnOYV(LALR0D%5FqqxWC+URZh9I>p&Hs<XRB=_{gt=?aja
znWzi<M@|r=AP~)eAI<)*c79HdMge|qUM~Lsx}00hw7i$pD7qi+0t?5sl?ohnL^Fw}
zgvk<kM6C)@tqR`Qs-B$eG{c$o3K+his0%bJSqwAr=9F?X$^+W!#0S`2W?YTW2nb?k
z=#tM^ecNPyUOI0VB|bTK2B^zmTfXb@ir=qVr(5aCfBNj=y=^+3%~)Nz>$6YtiFvb;
zh;?WwBin*GmAfg2bH=PKv+h|suvK_2>HZWglX}XL8WIIpx0Ch7jr_tPlVpz}fs5|g
zuP-$^pFqOaL!t+N`hZ_Goo+o((ZM+!&H+li!&i`@B?G?#RfPTQf$0|2W{26s@C*#*
zdLruj3v~<ipZ(q`%EeO222HM?J59U&bNfj$WUzdmdCy)KaHs8)M@Jp}m&=mS5pE-!
zkgR48lGryq6c68~;s2iP<t3{&F!@OwE{u*?BMD$?f&5h(H<9&q5EiS=`#k&-#gnng
zC#UscjBL|NGH3Yw7~l<KGm=gu9H?g>m+)BjGz~tyznLc|@BVy`=$v$!z`ffm3Kv{;
zo-E(NMwE)y6po&}csQ9W+q<Lp!QOm|DysgxF4&Ay*BKP>(j-WqppWq<l)g$W?_gAX
zDVO;9OS_z;{J{1sN?a7#vk8N@1@S59a-(D-+k=fRA4*0a0l*Al<8K&!A_m$2+DUe)
z^!)Z=j8cn~0g<Eu{t9dQF|N-9ua7!EyR9Xv+9FWN;LGK{+H@Z-$B&f$U&u;u23}5|
zlqRUk+G#+vqS#q@|1I3Zb?nB`^kL5$v>-TlH@PnPLq6rlzMDnD3fZm<f;aENmph9t
zdc7#M6e?)yCV^a>m5qYPaM*!_6K>OLH7ECzI%Byhp{BMCsD3oWc2sEkql8v+=f3N*
z!!m6S@589*>&!reWo~Ou-IAsdQn}6chkq{G*k|T<?lxXFjG!i%KhVZ~N6X|T5gSFB
z`R9DM7(BgYstB8DRpIk#V{wx8h9#%GzDT@`Dy&cr8(?%*^60q-P66W^?mavx#WMzb
ztI>FXntLiWbbvi930<yUu5WNvv8~T#OkyK84>hc%n`1bhGv7?|<~0Btkt%k)Z}~1h
zEEaGoAUYi0r#;>*fgik}J^+7WZTW(Dxudarfi!=2^XeYE`sl8D8t$EmVvXPLq<2R4
zcP<R-0wOc&{lJrOi@7%Kg=5t)M(;G0B2%2yMH#twFC_o=hlHVJFdGtKH2CX5>$iRF
z1&0G1D=3Y~h@&?WMf`}vx!t!35M^&x!Lz89=0&O#9wXuHMHMUaKXZRzWBdue#&^Eb
z8x1|Jw8$M1;h?Y7Bf{=k^i30w4)`P4jom>n?FPN3`IrO@{?=d|gxJ=MMs!-u14E0M
z^c5Y&H|-9^!zKzzJ|sUtN^EGhZnN{P@{^vBQVR1j`HfkAx|yHjGWOT+e~`c;JI$(f
zJ-T#Ehi$ZTOroDNW@1(h)eMxl^F4)U;Lzdz;(mGd9?8Xn1=#4tiqH(M>fDf39_o+0
zp1?P+7%deSrMw?#fA`5j#r5g4p|b-)1lwq8#;2XX-~GJ`1<nJv4it(EhiS4{RhTuJ
zRQOV8K5csd(XtK&G!2GSh5?}1ydS3~eGDVH2`-J`DHQI8bhdboB;TUtl71@bs?xYN
znsFwHp~}N~88CR*VRw^48}(M?V=vU4`?XUC&egbvih3oQ19|z)gq(s=84s%AA@YFm
z?$mOs?eavaS-UvUjXdpFK&p%rvD~Y-VcsLt3n<U2i7R>``Cb;i4B-fq&pFFYQsn}a
z#eSq?{3V}Ev_l@7(7NZNhd(aa4W>r;{aVRk#gOlO(^CIoa7~2+j@z-Helzg&Wf`pD
z7&=lRl6-qK!Q;yupED4kE7$dX5)&+%s2DMJB=3t!gvfJBTTF%M4j;sYU^_nOz5xFq
z2mN~|R2L+BufQvh^Wc9zpYT_Yb#Y^fKp=QA5g7jWF$Kf_{iysS@c$DiIE#QP_BJ*A
zh=vv(CP2aXpUn~k`o|6aS6nf`s|8pX|G!uKhhfJGUl-tJ{8yWGus|ReY!Ha@Kj=Tz
W6epZh5Qc5c19uQ)$LHez7x-V%hke-q

diff --git a/helpers/functions.R b/helpers/functions.R
index 7c5aaf4..bd1c908 100644
--- a/helpers/functions.R
+++ b/helpers/functions.R
@@ -28,6 +28,7 @@ get_dummy_df <- function() {
 #'
 #' Needed for proper data validation.
 check_for_empty_data <- function(value_to_check) {
+
   # for any 0-length
   if (length(value_to_check) == 0) return(TRUE)
 
diff --git a/modules/utils.R b/modules/utils.R
index b988484..f0d60fe 100644
--- a/modules/utils.R
+++ b/modules/utils.R
@@ -5,7 +5,6 @@
     'Module path: "', basename(box::file()), '"'
   )
 }
-# ================
 
 # asdasd
 #' @export
@@ -22,7 +21,7 @@ make_panels <- function(page_name, main_scheme) {
   # making cards
   cards <- purrr::map(
     .x = cols_list,
-    .f = make_cards_fn,
+    .f = render_cards_with_forms,
     main_scheme = main_scheme
   )
 
@@ -43,8 +42,27 @@ make_panels <- function(page_name, main_scheme) {
 }
 
 # functions for making cards
+# DO THIS INSTEAD !!!
 #' @export
-make_cards_fn <- function(sub_group, main_scheme) {
+# make_forms_by_scheme <- function(tool_id, main_scheme, ns) {
+
+#   ns <- NS(ns(tool_id))
+
+#   main_scheme <<- main_scheme
+#   subgroup_schema <- main_scheme |>
+#     dplyr::filter(tool_id == {{tool_id}})
+ 
+#   purrr::pmap(
+#     .l = dplyr::distinct(subgroup_schema, form_id, form_label, form_type),
+#     .f = render_forms,
+#     schema = subgroup_schema,
+#     ns = ns
+#   )
+# }
+
+# functions for making cards
+#' @export
+render_cards_with_forms <- function(sub_group, main_scheme) {
 
   main_scheme <<- main_scheme
   subgroups_inputs <- main_scheme |>
@@ -54,13 +72,14 @@ make_cards_fn <- function(sub_group, main_scheme) {
   bslib::card(
     bslib::card_header(sub_group, container = htmltools::h5),
     full_screen = TRUE,
+    fill = TRUE,
     width = "4000px",
     bslib::card_body(
       fill = TRUE,
       # передаем все аргументы в функцию для создания елементов
       purrr::pmap(
         .l = subgroups_inputs,
-        .f = create_forms,
+        .f = render_forms,
         main_scheme = main_scheme
       )
     )
@@ -70,20 +89,52 @@ make_cards_fn <- function(sub_group, main_scheme) {
 # UI RELATED ============================
 #' @export
 #' @param TEST s
-create_forms <- function(
+render_forms <- function(
   form_id,
   form_label,
   form_type,
   main_scheme
 ) {
 
+  filterd_line <- dplyr::filter(main_scheme, form_id == {{form_id}})
+
   # check if have condition
-  condition <- dplyr::filter(main_scheme, form_id == {{form_id}}) |>
-    dplyr::distinct(condition) |>
+  condition <- unique(filterd_line$condition)
+
+  # get choices from schema
+  choices <- filterd_line$choices
+
+  # get choices from schema
+  description <- unique(filterd_line) |>
+    dplyr::filter(!is.na(form_description)) |>
+    dplyr::distinct(form_description) |>
     dplyr::pull()
 
-  choices <- dplyr::filter(main_scheme, form_id == {{form_id}}) |>
-    dplyr::pull(choices)
+  # описание
+  if (length(description) > 1) {
+    rlang::abort(sprintf(
+      "%s - более чем 1 уникальный вариант описания:\n%s", form_id, paste0(description, collapse = "\n")
+    ))
+  } else if (length(description) == 0) {
+    description <- NA
+  }
+
+  # отдельно создаем заголовки
+  label <- if (is.na(description) && is.na(form_label)) {
+    NULL
+  } else {
+    shiny::tagList(
+      if (!is.na(form_label)) {
+        shiny::span(form_label, style = "color: #444444; font-weight: 550; line-height: 1.4;")
+        # если в схеме есть поле с описанием - добавлеяем его следующей строчкой
+      },
+      if (!is.na(description) && !is.na(form_label)) shiny::br(),
+      if (!is.na(description)) {
+        shiny::span(shiny::markdown(description)) |> htmltools::tagAppendAttributes(style = "color:gray; font-size:small; line-height: 1.4;")
+        # span(description, style = "color:gray; font-size:small;")
+      }
+    )
+  }
 
   # simple text or number input
   if (form_type == "text") {
@@ -93,7 +144,7 @@ create_forms <- function(
 
     form <- shiny::textAreaInput(
       inputId = form_id,
-      label = shiny::span(style = "color: #444444; font-weight: 550;", form_label),
+      label = label,
       rows = rows_to_show
     )
   }
@@ -101,7 +152,7 @@ create_forms <- function(
   if (form_type == "number") {
     form <- shiny::textAreaInput(
       inputId = form_id,
-      label = shiny::span(style = "color: #444444; font-weight: 550;", form_label),
+      label = label,
       rows = 1
     )
   }
@@ -112,7 +163,7 @@ create_forms <- function(
     suppressWarnings({
       form <- shiny::dateInput(
         inputId = form_id,
-        label = shiny::span(style = "color: #444444; font-weight: 550;", form_label),
+        label = label,
         value = NA, # keep empty
         format = "dd.mm.yyyy",
         weekstart = 1,
@@ -125,7 +176,7 @@ create_forms <- function(
   if (form_type == "select_one") {
     form <- shiny::selectizeInput(
       inputId = form_id,
-      label = shiny::span(style = "color: #444444; font-weight: 550;", form_label),
+      label = label,
       choices = choices,
       selected = NULL,
       options = list(
@@ -139,7 +190,7 @@ create_forms <- function(
   if (form_type == "select_multiple") {
     form <- shiny::selectizeInput(
       inputId = form_id,
-      label = shiny::span(style = "color: #444444; font-weight: 550;", form_label),
+      label = label,
       choices = choices,
       selected = NULL,
       multiple = TRUE,
@@ -154,7 +205,7 @@ create_forms <- function(
   if (form_type == "radio") {
     form <- shiny::radioButtons(
       inputId = form_id,
-      label = shiny::span(style = "color: #444444; font-weight: 550;", form_label),
+      label = label,
       choices = choices,
       selected = character(0)
     )
@@ -163,7 +214,7 @@ create_forms <- function(
   if (form_type == "checkbox") {
     form <- shiny::checkboxGroupInput(
       inputId = form_id,
-      # label = shiny::span(style = "color: #444444; font-weight: 550;", form_label),
+      # label = label,
       label = shiny::h6(form_label),
       choices = choices,
       selected = character(0)
@@ -177,7 +228,18 @@ create_forms <- function(
 
   # description part
   if (form_type == "description") {
-    form <- shiny::div(shiny::HTML(form_label), style = "color:Gray;font-size: 90%;")
+    if(is.na(form_label)) {
+      form <- shiny::hr(style = "margin-bottom: -3px;")
+    } else {
+      form <- shiny::div(shiny::HTML(form_label), style = "color: Gray; font-size: 90%;")
+    }
+  }
+
+  if (form_type == "description_header") {
+    form <- shiny::h5(
+      label,
+      style = "margin-bottom: -8px; margin-top: 10px;"
+    )
   }
 
   # если есть условие создать кондитионал панель
@@ -187,6 +249,7 @@ create_forms <- function(
       form
     )
   }
+
   form
 }