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
       }
     }
@@ -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"