From 206df545337f286870f961e23c8e7c6e5a6c8bb8 Mon Sep 17 00:00:00 2001
From: madeliri <madeliri@gmail.com>
Date: Sat, 11 Apr 2026 14:34:06 +0300
Subject: [PATCH] =?UTF-8?q?fix:=20=D0=BA=D0=BD=D0=BE=D0=BF=D0=BA=D0=B0=20"?=
 =?UTF-8?q?=D0=9E=D1=87=D0=B8=D1=81=D1=82=D0=B8=D1=82=D1=8C=20=D0=B2=D1=81?=
 =?UTF-8?q?=D0=B5=20=D0=B4=D0=B0=D0=BD=D0=BD=D1=8B=D0=B5"=20=D1=82=D0=B0?=
 =?UTF-8?q?=D0=BA=D0=B6=D0=B5=20=D0=BE=D1=87=D0=B8=D1=89=D0=B0=D0=B5=D1=82?=
 =?UTF-8?q?=20=D0=B2=D1=8B=D0=B1=D1=80=D0=B0=D0=BD=D0=BD=D1=8B=D0=B9=20mai?=
 =?UTF-8?q?n=5Fkey?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 app.R | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/app.R b/app.R
index ffdd42d..7607c5a 100644
--- a/app.R
+++ b/app.R
@@ -111,15 +111,6 @@ ui <- page_sidebar(
 
 # MODALS ========================
 # окно для подвтерждения очищения данных
-modal_clean_all <- modalDialog(
-  "Данное действие очистит все заполненные данные. Убедитесь, что нужные данные сохранены.",
-  title = "Очистить форму?",
-  footer = tagList(
-    actionButton("cancel_button", "Отмена"),
-    actionButton("clean_all_action", "Очистить.", class = "btn btn-danger")
-  ),
-  easyClose = TRUE
-)
 
 # init auth =======================
 if (AUTH_ENABLED) ui <- shinymanager::secure_app(ui, enable_admin = TRUE)
@@ -669,7 +660,15 @@ server <- function(input, output, session) {
   ## очистка всех полей -----------------------
   # show modal on click of button
   observeEvent(input$clean_data_button, {
-    showModal(modal_clean_all)
+    showModal(modalDialog(
+      "Данное действие очистит все заполненные данные. Убедитесь, что нужные данные сохранены.",
+      title = "Очистить форму?",
+      footer = tagList(
+        actionButton("cancel_button", "Отмена"),
+        actionButton("clean_all_action", "Очистить.", class = "btn btn-danger")
+      ),
+      easyClose = TRUE
+    ))
   })
 
   # when action confirm - perform action
@@ -677,6 +676,7 @@ server <- function(input, output, session) {
     
     # rewrite all inputs with empty data
     utils$clean_forms(schm$get_id_type_list("main"))
+    values$main_key <- NULL
 
     removeModal()
     showNotification("Данные очищены!", type = "warning")