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

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

Revision: 1960
          http://sourceforge.net/p/r-gregmisc/code/1960
Author:   warnes
Date:     2015-04-25 07:57:16 +0000 (Sat, 25 Apr 2015)
Log Message:
-----------
Add 'justify' argument to print and format object_sizes methods

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

Modified: trunk/gdata/R/humanReadable.R
===================================================================
--- trunk/gdata/R/humanReadable.R	2015-04-25 07:56:23 UTC (rev 1959)
+++ trunk/gdata/R/humanReadable.R	2015-04-25 07:57:16 UTC (rev 1960)
@@ -4,8 +4,7 @@
                           digits=1,
                           width=NULL,
                           sep=" ",
-                          justify = c("right", "left"),
-                          ...
+                          justify = c("right", "left")
                           )
 {
   ## --- Setup ---

Modified: trunk/gdata/R/object.size.R
===================================================================
--- trunk/gdata/R/object.size.R	2015-04-25 07:56:23 UTC (rev 1959)
+++ trunk/gdata/R/object.size.R	2015-04-25 07:57:16 UTC (rev 1960)
@@ -16,6 +16,7 @@
                                digits=1,
                                width=NULL,
                                sep=" ",
+                               justify = c("right", "left"),
                                ...)
 {
     print(format(x,
@@ -24,7 +25,8 @@
                  units=units,
                  digits=digits,
                  width=width,
-                 sep=sep),
+                 sep=sep,
+                 justify=justify),
           quote=quote,
           ...)
 
@@ -39,6 +41,7 @@
                                 digits=1,
                                 width=NULL,
                                 sep=" ",
+                                justify = c("right", "left"),
                                 ...)
 {
     if( !missing(units) )
@@ -51,7 +54,8 @@
                              units=units,
                              digits=digits,
                              width=width,
-                             sep=sep
+                             sep=sep,
+                             justify=justify
                              )
        }
     else if( is.null(humanReadable) || humanReadable==FALSE )
@@ -62,7 +66,8 @@
                       units=units,
                       digits=digits,
                       width=width,
-                      sep=sep)
+                      sep=sep,
+                      justify=justify)
 
 }
 

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