From a8889c5fe2b53e28d54a346b8493bfd2f1a24fa5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <kontrapunkt@uclmail.net>
Date: Tue, 21 Feb 2023 17:47:50 +0100
Subject: [PATCH] api: extr_data_serial: Update. Disable multiple extracted
state backups.
---
R/api.R | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/R/api.R b/R/api.R
index c3d7991..45bbd8e 100644
--- a/R/api.R
+++ b/R/api.R
@@ -553,8 +553,7 @@ extr_data_serial <- function(m) {
fn_ex <- get_fn_extr(m)
timetag <- format(Sys.time(), "%Y%m%d_%H%M%S")
- saveRDS(object = m, file = file.path(m$run$paths$project,
- paste0(timetag,"_",FN_EXTR_STATE)))
+ saveRDS(object = m, file = file.path(m$run$paths$project,FN_EXTR_STATE))
m
}
--
GitLab