Recherche de tag: example
Connaître le temps que met chaque exemple d'une fonction à s'exécuter permet de déterminer lesquelles il faut passer en "do not run" pour ne pas dépasser le temps de R CMD check
library(magrittr)
# Getting function name
functions <- list.files("man") %>%
strsplit(".Rd")
# Timing function exection
times <- lapply(functions, function(func){
time_exe <- suppressWarnings({ # fun
system.time({ example(func, "GWENA",
local = new.env(),
character.only = TRUE,
ask = FALSE,
echo = FALSE)})
})
return(time_exe)
}) %>%
rlist::list.rbind() %>%
set_rownames(unlist(functions)) %>%
as.data.frame() %>%
.[order(.$user.self, decreasing = TRUE),]
0/5 - [0 rating]