[R-gregmisc-users] SF.net SVN: r-gregmisc:[1314] trunk/gdata/R

[<ar...@us...>]

Revision: 1314
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1314&view=rev
Author:   arnima
Date:     2009-04-19 23:25:04 +0000 (Sun, 19 Apr 2009)

Log Message:
-----------
Changed object.size(object) to unclass(object.size(object)).

Modified Paths:
--------------
    trunk/gdata/R/env.R
    trunk/gdata/R/ll.R

Modified: trunk/gdata/R/env.R
===================================================================
--- trunk/gdata/R/env.R	2009-02-16 15:34:40 UTC (rev 1313)
+++ trunk/gdata/R/env.R	2009-04-19 23:25:04 UTC (rev 1314)
@@ -3,7 +3,7 @@
   get.object.size <- function(object.name, pos)
   {
     object <- get(object.name, pos=pos)
-    size <- try(object.size(object), silent=TRUE)
+    size <- try(unclass(object.size(object)), silent=TRUE)
     if(class(size) == "try-error")
       size <- 0
     return(size)

Modified: trunk/gdata/R/ll.R
===================================================================
--- trunk/gdata/R/ll.R	2009-02-16 15:34:40 UTC (rev 1313)
+++ trunk/gdata/R/ll.R	2009-04-19 23:25:04 UTC (rev 1314)
@@ -23,7 +23,7 @@
   get.object.size <- function(object.name, pos)
   {
     object <- get(object.name, pos=pos)
-    size <- try(object.size(object), silent=TRUE)
+    size <- try(unclass(object.size(object)), silent=TRUE)
     if(class(size) == "try-error")
       size <- 0
     return(size)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.