refactor: небольшие изменения кода

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"

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