time_exec_package_example.R

# ********************************************************************* #
# Quick script to find which example is the longest to run in a package #
# ********************************************************************* #

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),]