madeliri/formy
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
madeliri
2026-04-22 10:51:02 +03:00
parent fe7cb9589e
commit 43af8c20c4
1 changed files with 5 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/db.R
View File

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