Summary of Total Object.Size in R Script

Here is a function I use to see how big the objects in my workspace are:

my.ls <-

+ function (pos = 1, sorted = F)
+ {
+     .result <- sapply(ls(pos = pos, all.names = TRUE), function(..x)
object.size(eval(as.symbol(..x))))
+     if (sorted) {
+         .result <- rev(sort(.result))
+     }
+     .ls <- as.data.frame(rbind(as.matrix(.result), `**Total` = sum(.result)))
+     names(.ls) <- "Size"
+     .ls$Size <- formatC(.ls$Size, big.mark = ",", digits = 0,
+         format = "f")
+     .ls$Mode <- c(unlist(lapply(rownames(.ls)[-nrow(.ls)],
function(x) mode(eval(as.symbol(x))))),
+         "-------")
+     .ls
+ }

my.ls()

             Size        Mode
.my.env         28 environment
.Random.seed 2,528     numeric
.required       72   character
my.ls        6,712    function
**Total      9,340     -------


On Tue, Jan 13, 2009 at 9:53 AM, Gundala Viswanath <gundalav at gmail.com> wrote:

Dear all,

Is there a way we can find the total object.size of
all the objects in our R script?

The reason we want to do this because we want to know
how much memory does our R script require overall.

Rprofmem(), doesn't seem to do it.

and Unix 'top' command is dynamic and
it doesn't give the exact byte size.

- Gundala Viswanath
Jakarta - Indonesia

--
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem that you are trying to solve?