From 2cb8610689301451b43461751ea3dd766b344f66 Mon Sep 17 00:00:00 2001
From: Paul Lietar <pl2113@ic.ac.uk>
Date: Fri, 26 Jul 2024 13:49:53 +0100
Subject: [PATCH] copy.date = TRUE

---
 R/util.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/util.R b/R/util.R
index 79689b04..1da7e3bd 100644
--- a/R/util.R
+++ b/R/util.R
@@ -157,7 +157,9 @@ copy_files <- function(src, dst, overwrite = FALSE,
 
   # mrc-5557: We intentionally don't use fs::file_copy, as it does not work
   # reliably on mounted Samba file systems.
-  ok <- file.copy(src, dst, overwrite = overwrite, copy.mode = copy_mode)
+  ok <- file.copy(src, dst, overwrite = overwrite,
+                  copy.mode = copy_mode,
+                  copy.date = TRUE)
   if (any(!ok)) {
     cli::cli_abort("Could not copy file{?s} {.file {src[!ok]}}")
   }