feat: работа с орфанными записями

2026-04-24 15:58:29 +03:00
parent 87444b5718
commit c63beeef0c
5 changed files with 75 additions and 9 deletions
--- a/app.R
+++ b/app.R
@@ -1227,13 +1227,15 @@ server <- function(input, output, session) {
        append = TRUE
      )

-      message <- glue::glue("Данные таблицы '{table_name}' успешно обновлены (добавлено {nrow(df)} записей)")
+      message <- glue::glue("Данные таблицы '{table_name}' успешно загружены (добавлено {nrow(df)} записей)")
      showNotification(
        message,
        type = "message"
      )
      cli::cli_alert_success(message)
    }
+
+    db$db_clean_orphans(mhcs(), con)
    log_action_to_db("importing data from xlsx", con = con)
    removeModal()
  })