[R-gregmisc-users] SF.net SVN: r-gregmisc:[1535] trunk/gdata/R/object.size.R

[<wa...@us...>]

Revision: 1535
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1535&view=rev
Author:   warnes
Date:     2012-06-05 18:36:05 +0000 (Tue, 05 Jun 2012)
Log Message:
-----------
Avoid warning by calling utils::object.size rather than Internal(object.size(x))

Modified Paths:
--------------
    trunk/gdata/R/object.size.R

Modified: trunk/gdata/R/object.size.R
===================================================================
--- trunk/gdata/R/object.size.R	2012-05-31 22:14:44 UTC (rev 1534)
+++ trunk/gdata/R/object.size.R	2012-06-05 18:36:05 UTC (rev 1535)
@@ -7,8 +7,9 @@
 
 object.size <- function(...) 
 {
-  structure(sapply(list(...), function(x) .Internal(object.size(x))), 
-            class=c("object_size", "numeric"))
+  structure(sapply(list(...),
+                   utils::object.size),
+                   class=c("object_size", "numeric"))
 }
 
 print.object_size <- function(x, quote=FALSE, humanReadable, ...)

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