Functions to help with code execution analysis in R

rmetatools.R

# how much memory did an execution use in MBs

mem_usage <- function(...){
  exprs <- as.list(match.call(expand.dots = FALSE)$...)
  invisible(gc(reset = TRUE))
  start_mem <- sum(gc()[,2])
  
  lapply(exprs, eval, parent.frame())
  
  max_mem   <- sum(gc()[,6])
  end_mem   <- sum(gc()[,2])
  return(list(final_mem_used = as.numeric(end_mem - start_mem)
              , max_mem_used = as.numeric(max_mem - start_mem)
              )
         )
}