Display object sizes from large to small with human-readable formatting. It's a really ugly function with a double sapply in there, but it does its job well.

objectsizes.R

object.sizes <- function(unit = "auto", all = FALSE) {
  data.frame(size = 
    sapply(
      sort(
        sapply(ls(envir = parent.frame(), all.names = all), function(x) {
          object.size(get(x, envir = parent.frame()))
        }), 
        decreasing = TRUE
      ), 
      function(y) {
        utils:::format.object_size(y, unit = unit)
      }
    )
  )
}

How to load & use

# load
source("https://gist.githubusercontent.com/vankesteren/a0fc7c6f73c8abfc0f3b8e44b0fa41a8/raw/objectsizes.R")

# use
object.sizes()