From 6cf76641eded35a00e1a1bed0edbbef8bbfc8a8b Mon Sep 17 00:00:00 2001
From: madeliri <madeliri@gmail.com>
Date: Tue, 14 Apr 2026 11:43:10 +0300
Subject: [PATCH] =?UTF-8?q?refactor:=20=D0=BD=D0=B5=D0=B1=D0=BE=D0=BB?=
 =?UTF-8?q?=D1=8C=D1=88=D0=B8=D0=B5=20=D0=B8=D0=B7=D0=BC=D0=B5=D0=BD=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B8=D1=8F=20=D0=BA=D0=BE=D0=B4=D0=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 app.R                 | 10 +++++-----
 utils/init_login_db.r |  2 +-
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/app.R b/app.R
index 5d631f3..c3c655f 100644
--- a/app.R
+++ b/app.R
@@ -118,9 +118,9 @@ server <- function(input, output, session) {
     if (AUTH_ENABLED) {
       reactiveValuesToList(res_auth)
       if (res_auth$admin) {
-        print("admin")
+        # print("admin")
       } else {
-        print("not_admin")
+        # print("not_admin")
         showing_buttons <- FALSE
       }
     }
@@ -234,8 +234,8 @@ server <- function(input, output, session) {
   ) {
 
     nested_key_id <- mhcs()$get_key_id(table_name)
-    input_types <- unname(id_and_types_list)
-    input_ids   <- names(id_and_types_list)
+    input_types   <- unname(id_and_types_list)
+    input_ids     <- names(id_and_types_list)
 
     if (missing(ns)) ns <- NULL
 
@@ -1138,7 +1138,7 @@ server <- function(input, output, session) {
         append = TRUE
       )
 
-      message <- glue::glue("Данные таблицы '{table_name}' успешно обновлены")
+      message <- glue::glue("Данные таблицы '{table_name}' успешно обновлены (добавлено {nrow(df)} записей)")
       showNotification(
         message,
         type = "message"
diff --git a/utils/init_login_db.r b/utils/init_login_db.r
index 3031bfa..b37760c 100644
--- a/utils/init_login_db.r
+++ b/utils/init_login_db.r
@@ -3,7 +3,7 @@
 # SETUP AUTH =============================
 # Init DB using credentials data
 credentials <- data.frame(
-  user = c("admin", "user"),
+  user     = c("admin", "user"),
   password = c("admin", "user"),
   # password will automatically be hashed
   admin = c(TRUE, FALSE),