allocated()
# default allocations when called at top level, corresponding
# to the nesting of frames in .Program
allocated()
Frame 1
4090
function() {
at.start <- allocated()
# ... do some work ...
now <- allocated()
# changes in allocations
now - at.start
}