1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
env <- function(unit="KB", digits=0)
{
get.object.size <- function(object.name, pos)
{
object <- get(object.name, pos=pos)
size <- try(unclass(utils::object.size(object)), silent=TRUE)
if(inherits(size, "try-error"))
size <- 0
size
}
get.environment.size <- function(pos)
{
if(search()[pos]=="Autoloads" || length(ls(pos,all.names=TRUE))==0)
size <- 0
else
size <- sum(sapply(ls(pos,all.names=TRUE), get.object.size, pos=pos))
size
}
get.environment.nobjects <- function(pos)
{
length(ls(pos, all.names=TRUE))
}
unit <- match.arg(unit, c("bytes","KB","MB"))
denominator <- switch(unit, "KB"=1024, "MB"=1024^2, 1)
size.vector <- sapply(seq(along=search()), get.environment.size)
size.vector <- round(size.vector/denominator, digits)
nobjects.vector <- sapply(seq(along=search()), get.environment.nobjects)
env.frame <- data.frame(search(), nobjects.vector, size.vector)
names(env.frame) <- c("Environment", "Objects", unit)
print(env.frame, right=FALSE)
invisible(env.frame)
}
|
