fix: корректное создание бэкапов

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}'")
       }
-  
+    
     }
   )