From 43af8c20c49cd27bd4e5d36d83b1c31d83dfb21d Mon Sep 17 00:00:00 2001
From: madeliri <madeliri@gmail.com>
Date: Wed, 22 Apr 2026 10:51:02 +0300
Subject: [PATCH] =?UTF-8?q?fix:=20=D0=BA=D0=BE=D1=80=D1=80=D0=B5=D0=BA?=
 =?UTF-8?q?=D1=82=D0=BD=D0=BE=D0=B5=20=D1=81=D0=BE=D0=B7=D0=B4=D0=B0=D0=BD?=
 =?UTF-8?q?=D0=B8=D0=B5=20=D0=B1=D1=8D=D0=BA=D0=B0=D0=BF=D0=BE=D0=B2?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 modules/db.R | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/modules/db.R b/modules/db.R
index 563d054..624be7f 100644
--- a/modules/db.R
+++ b/modules/db.R
@@ -364,7 +364,6 @@ local_db_backup <- function(
     .y = names(schedule),
     .f = \(schedule_days, schedule_name) {
   
-      # daily
       daily_folder  <- fs::path(backup_folder, schedule_name)
       todays_backup <- fs::path(daily_folder, paste0(db_name, "_", format(Sys.time(), "%Y%m%d")), ext = "sqlite")
   
@@ -388,17 +387,13 @@ local_db_backup <- function(
       }
 
       # если количество существующих бэкапов равно имеющемуся и пора делать бэкап - делаем бэкап, удаляем послендий файл
-      if (length(existed_files) >= backups_limit & dates[1] + schedule_days == Sys.Date()) {
-  
-        file.remove(utils::tail(existed_files, 1))
-        file.copy(db_full_path, todays_backup)
-  
-      } else if(length(existed_files) == 0) {
-  
-        file.copy(db_full_path, todays_backup)
+      if (dates[1] + schedule_days == Sys.Date()) {
 
+        if (length(existed_files) >= backups_limit) file.remove(utils::tail(existed_files, 1))
+        file.copy(db_full_path, todays_backup)
+        cli::cli_alert_success("создан {schedule_name}-бэкап для '{db_name}'")
       }
-  
+    
     }
   )