Hi Sumit,
Here are a couple of functions I've picked up along the way and
modified. The first lists all objects, their class, and their
dimensions (I grabbed this from the web and modified - sorry for not
acknowledging the person who first wrote it). The second is much the
same but gives their size. Hope this helps:
##LS
LS<-function (pattern = "")
{
if (length(ls(1,pat=pattern)) <1){stop("No objects are in memory")}
obs <- ls(1, pat = pattern)
cat(
formatC("DIM/LEN"),
formatC("NAME", width=max(nchar(obs)+5)),
formatC("CLASS",width=16),
"\n")
if (length(ls(1,pat="tmp")) >0){
for (i in 2:length(obs)) {
widim <- 0
ww <- eval(parse(t = paste("length(dimx(", obs[i], "))")))
for (k in 1:ww){
widim <- eval(parse(t =
paste("length(dimx(",obs[i],"))+widim-2+nchar(dimx(", obs[i],
")[k])")))}
cat(
eval(parse(t = paste("dimx(", obs[i], ")"))),
formatC(obs[i], width=max(nchar(obs))-widim+10),
formatC(eval(parse(t = paste("class(", obs[i], ")"))),1, 16),
"\n") }}
else{
for (i in 1:length(obs)) {
widim <- 0
ww <- eval(parse(t = paste("length(dimx(", obs[i], "))")))
for (k in 1:ww){
widim <- eval(parse(t =
paste("length(dimx(",obs[i],"))+widim-2+nchar(dimx(", obs[i],
")[k])")))}
cat(
eval(parse(t = paste("dimx(", obs[i], ")"))),
formatC(obs[i], width=max(nchar(obs))-widim+10),
formatC(eval(parse(t = paste("class(", obs[i], ")"))),1, 16),
"\n") }}}
##LSIZE
lsize <- function (pattern = "",sort=TRUE)
{
if (length(ls(1,pat=pattern)) <1){stop("No objects are in memory")}
obs <- ls(1, pat = pattern)
sizes <- vector(length=length(obs))
for (i in 1:length(obs)) { sizes[i] <-
eval(parse(t=paste("object.size(", obs[i], ")")))}
sizes <- round(sizes/1048600,2)
if (sort){obs <- obs[order(sizes)]}
cat(formatC("SIZE"),
formatC("NAME", width=max(nchar(obs)+5)),
formatC("CLASS",width=16),
"\n")
for (i in 1:length(obs)) {
widim <- 0
ww <- eval(parse(t = paste("length(object.size(", obs[i], "))")))
for (k in 1:ww){
widim <- eval(parse(t =
paste("length(object.size(",obs[i],"))+widim-2+nchar(00.00)")))}
cat(eval(parse(t = paste("round(object.size(", obs[i], ")/1048600,2)"))),
formatC(obs[i], width=max(nchar(obs))-widim+10),
formatC(eval(parse(t = paste("class(", obs[i], ")"))),1, 16),
"\n") }
cat(sum(sizes),formatC("***TOTAL***",
width=nchar(sum(sizes))-widim+12),"\n")}
On 9/12/07, Doran, Harold <[EMAIL PROTECTED]> wrote:
> Is this what you want when you say "values". It seems this could be very
> expensive if some of your objects are large matrices, for example. I
> thought the poster meant "size" when he said values since he later
> mentioned memory. If that is the case, you want object.size().
>
>
>
> > -----Original Message-----
> > From: [EMAIL PROTECTED]
> > [mailto:[EMAIL PROTECTED] On Behalf Of R Help
> > Sent: Wednesday, September 12, 2007 8:28 AM
> > To: [EMAIL PROTECTED]
> > Cc: r-help@r-project.org
> > Subject: Re: [R] R: to view the memory
> >
> > the function ls() will list all the variables currently in the memory.
> > To get their values, you'll also need to use the parse and
> > eval functions. Try the following:
> >
> > x = ls()
> > for(i in 1:length(x)){
> > print(x[i])
> > print(eval(parse(text=x[i])))
> > }
> >
> > It's a little crude, but it will do the job.
> >
> > Sam
> > On 9/11/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> > > Hello,
> > >
> > > I am wondering if it is possible to view what variables and
> > vairable
> > > values are stored in the R memory. This to enable debugging of
> > > R-scripts I write.
> > >
> > > Sumit
> > >
> > >
> > > [[alternative HTML version deleted]]
> > >
> > > ______________________________________________
> > > R-help@r-project.org mailing list
> > > https://stat.ethz.ch/mailman/listinfo/r-help
> > > PLEASE do read the posting guide
> > > http://www.R-project.org/posting-guide.html
> > > and provide commented, minimal, self-contained, reproducible code.
> > >
> >
> > ______________________________________________
> > R-help@r-project.org mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide
> > http://www.R-project.org/posting-guide.html
> > and provide commented, minimal, self-contained, reproducible code.
> >
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
--
Matthew C Keller
Postdoctoral Fellow
Virginia Institute for Psychiatric and Behavioral Genetics
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
