From 850a810e47b716b8c7ed3ee42851f9ede2c06d57 Mon Sep 17 00:00:00 2001
From: Xavier Timbeau <54633745+xtimbeau@users.noreply.github.com>
Date: Tue, 5 Nov 2024 15:28:06 +0100
Subject: [PATCH] Update source_data.R

---
 R/source_data.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/source_data.R b/R/source_data.R
index db81248..5e2656a 100644
--- a/R/source_data.R
+++ b/R/source_data.R
@@ -680,7 +680,7 @@ source_data_refresh <- function(
     quiet = TRUE,
     init_qmd = TRUE,
     root = NULL) {
-
+  start <- Sys.time()
   if(is.null(what))
     what <- source_data_status(cache_rep = cache_rep, root = root, quiet = quiet)
 
@@ -740,6 +740,7 @@ source_data_refresh <- function(
     list(src = src_data$src, ok = src_data$ok)
   }
   )
+  cli::cli_alert_success("Refresh en {round(as.numeric(Sys.time()-start))} s.")
   res <- purrr::transpose(res)
   res$src[res$ok == "exec"]
 }