sourceX <- function(x){source(x, local = TRUE, echo = TRUE)}
t1 <- Sys.time()
sourceX("1_admins_combinaisons.R")
sourceX("2_admin_njours.R")
sourceX("3_merge_results.R")
t2 <- Sys.time()
timediff <- difftime(t2, t1)
timediff
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.