List objects from current scope by size

objSize.R

objSize <- function(n=10, decreasing=TRUE) {
  # list 'n' objects, sorted by size
  l <- ls(envir=parent.frame())
  N <- seq(min(length(l),n))
  x <- setNames(lapply(l, object.size), l)
  y <- x[order(unlist(x),decreasing=decreasing)]
  z <- sapply(y, function(a) capture.output(print(a, units="auto")))
  return(z[N])
}