Recherche de tag: example


Temps d'exécution des examples d'un package [R]

18.06.2020     Kumquatum      R package dev 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]