R-alpha: `axes' argument for barplot()

[Kurt Hornik]

Clearly, barplot should have an `axes' argument.  The following trivial
patch does that ... pls apply.

-k

*** src/library/base/funs/barplot.orig	Sat Aug  2 15:58:44 1997
--- src/library/base/funs/barplot	Sat Aug  2 16:00:22 1997
***************
*** 1,7 ****
  "barplot" <-
  function (height, names.arg, col=NULL, border=par("fg"),
  	beside=FALSE, space=0.2, legend.text,
! 	main=NULL, xlab=NULL, ylab=NULL, xlim, ylim, ...)
  {
  	opar <- par(yaxs="i", xpd=TRUE)
  	on.exit(par(opar))
--- 1,7 ----
  "barplot" <-
  function (height, names.arg, col=NULL, border=par("fg"),
  	beside=FALSE, space=0.2, legend.text,
! 	main=NULL, xlab=NULL, ylab=NULL, xlim, ylim, axes = TRUE, ...)
  {
  	opar <- par(yaxs="i", xpd=TRUE)
  	on.exit(par(opar))
*************** function (height, names.arg, col=NULL, b
*** 68,72 ****
  			xjust=1, yjust=1)
  	}
  	title(main=main, xlab=xlab, ylab=ylab, ...)
! 	axis(2)
  }
--- 68,73 ----
  			xjust=1, yjust=1)
  	}
  	title(main=main, xlab=xlab, ylab=ylab, ...)
! 	if (axes)
! 		axis(2)
  }
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-