object_sizes.R

objectSizeTable <- function(unit = 1e6, env = .GlobalEnv, top = 10, totals = T) { # 1e6 approximates Mb (1e9 for Gb)
  o <- ls(envir = env)
  y <- data.frame(object = o, size = sapply(o, function(x) object.size(get(x, envir = env))))
  y$size <- y$size / unit
  y <- y[order(y$size, decreasing = T),]
  if (totals) {y <- rbind(data.frame(object = c('total', 'other_environments'), size = c(sum(y$size), memory.size() - sum(y$size))), y)}
  rownames(y) <- NULL
  if (is.na(top)) return(y) else return(y[seq_len(top + (2 * totals)),])
}