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