Hi all,

In referencing this thread:

  https://stat.ethz.ch/pipermail/r-help/2007-September/140702.html

the current barplot.default() function includes an internal function
called xyrect() to draw the bars.  

The xyrect() function definition provides for "..." args, however the
actual function calls do not include "..." args. Thus any inline graphic
pars specified in the barplot() call are not passed.

A patch file against the current SVN barplot.r is attached to modify the
three locations in which called xyrect() is called to add "..." args to
each.

Thanks,

Marc Schwartz

--- barplot.R	2007-09-13 08:21:46.000000000 -0500
+++ barplotRFE.R	2007-09-13 08:23:27.000000000 -0500
@@ -143,7 +143,7 @@
 	    xyrect(rectbase + offset, w.l, c(height) + offset, w.r,
 		   horizontal = horiz,
 		   angle = angle, density = density,
-                   col = col, border = border)
+                   col = col, border = border, ...)
 	else {
 	    ## noInside <- NC > 1 && !inside # outside border, but not inside
 	    ## bordr <- if(noInside) 0 else border
@@ -151,10 +151,10 @@
 		xyrect(height[1:NR, i] + offset[i], w.l[i],
 		       height[ -1,  i] + offset[i], w.r[i],
 		       horizontal = horiz, angle = angle, density = density,
-		       col = col, border = border)# = bordr
+		       col = col, border = border, ...)# = bordr
 		## if(noInside)
 		##  xyrect(min(height[, i]), w.l[i], max(height[, i]), w.r[i],
-		##	   horizontal = horiz, border= border)
+		##	   horizontal = horiz, border= border, ...)
 	    }
 	}
 	if (axisnames && !is.null(names.arg)) { # specified or from {col}names
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel

Reply via email to