fix: exclude rds from being included in archive

mcanouil · Jul 27, 2022 · 78ab946 · 78ab946
1 parent 1a7ec13
commit 78ab946
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/run_eggla.R b/R/run_eggla.R
@@ -163,7 +163,10 @@ run_eggla <- function(
 
       saveRDS(
         object = results,
-        file = file.path(results_directory, "model-object.rds")
+        file = file.path(
+          working_directory,
+          sprintf("%s-%s-model-object.rds", Sys.Date(), sex_literal)
+        )
       )
 
       data.table::fwrite(