[Rd] barplot forces xpd=TRUE (PR#1088)

[pwhiting@whitings.org]

<<insert bug report here>>

barplot hardcodes xpd as "TRUE" causing the bars to go outside of the
plot region.  True can be the default, but it shouldn't be the only
option.

*** barplot.R   Sat Sep  8 10:15:16 2001
--- barplot.R.orig      Sat Sep  8 10:03:39 2001
***************
*** 5,11 ****
           legend.text = NULL, beside = FALSE, horiz = FALSE,
           col = heat.colors(NR), border = par("fg"),
           main = NULL, sub = NULL, xlab = NULL, ylab = NULL,
!          xlim = NULL, ylim = NULL, xpd = TRUE,
           axes = TRUE, axisnames = TRUE, inside = TRUE, plot = TRUE, ...)
  {
      if (!missing(inside)) .NotYetUsed("inside", error = FALSE)
--- 5,11 ----
           legend.text = NULL, beside = FALSE, horiz = FALSE,
           col = heat.colors(NR), border = par("fg"),
           main = NULL, sub = NULL, xlab = NULL, ylab = NULL,
!          xlim = NULL, ylim = NULL,
           axes = TRUE, axisnames = TRUE, inside = TRUE, plot = TRUE, ...)
  {
      if (!missing(inside)) .NotYetUsed("inside", error = FALSE)
***************
*** 61,68 ****
        w.m <- matrix(w.m, nc = NC)
      if(plot) { ##-------- Plotting :
        opar <-
!           if (horiz)  par(xaxs = "i", xpd=xpd)
!           else        par(yaxs = "i", xpd=xpd)
        on.exit(par(opar))

        plot.new()
--- 61,68 ----
        w.m <- matrix(w.m, nc = NC)
      if(plot) { ##-------- Plotting :
        opar <-
!           if (horiz)  par(xaxs = "i", xpd = TRUE)
!           else        par(yaxs = "i", xpd = TRUE)
        on.exit(par(opar))

        plot.new()



--please do not edit the information below--

Version:
 platform = i686-pc-linux-gnu
 arch = i686
 os = linux-gnu
 system = i686, linux-gnu
 status = 
 major = 1
 minor = 3.1
 year = 2001
 month = 08
 day = 31
 language = R

Search Path:
 .GlobalEnv, package:ctest, Autoloads, package:base

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._