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