R-beta: Splus incompatibility in axis() and image()

Steve Cassidy (steve@srsuna.shlrc.mq.edu.au)
Wed, 25 Feb 1998 10:14:03 +1100


Message-Id: <199802242314.KAA08493@sputnik.shlrc.mq.edu.au>
To: r-help@stat.math.ethz.ch
Subject: R-beta: Splus incompatibility in axis() and image()
Date: Wed, 25 Feb 1998 10:14:03 +1100
From: Steve Cassidy <steve@srsuna.shlrc.mq.edu.au>


Just a note to point out a couple of small incompatibilities that tripped up a port of 
some S code to R.  

in axis() the first argument is called 'which' in R but 'side' in Splus, so code which
names the first arg (ie axis(side=1)) falls over in R. The fix is a trivial name 
change in src/library/base/R/axis. 

in image() the defaulting of arguments doesn't allow me to say image(z) where z is a
matrix, in Splus it does.  Here's a version of src/library/base/R/image which I think 
works: 

image <-
function (x=seq(0,1,len=nrow(z)), y=seq(0,1,len=ncol(z)), z,
	zlim=range(z, na.rm=TRUE), col=heat.colors(12),
	add = FALSE, xaxs="i", yaxs="i", xlab, ylab, ...)
{
        # if only one arg, it is z
        if(missing(y) && missing(z)) {
          z <- x
          x <- seq(0,1,len=nrow(z))
          y <- seq(0,1,len=ncol(z))
          if(missing(xlab)) xlab <- ""
          if(missing(ylab)) ylab <- ""
        } else {
          if(missing(xlab)) xlab <- if(missing(x)) "" else deparse(substitute(x))
          if(missing(ylab)) ylab <- if(missing(y)) "" else deparse(substitute(y))
        }
        
	if(!add)
	  plot(0, 0, xlim=range(x,na.rm=TRUE), ylim=range(y,na.rm=TRUE),
		type="n", xaxs=xaxs, yaxs=yaxs, xlab=xlab, ylab=ylab, ...)
	.Internal(image(as.double(x),
			as.double(y),
			as.double(z),
			as.double(zlim),
			col))
}



-- 
Steve Cassidy
------------------------------------------------------------
                Speech, Hearing and Language Research Center
                     School of English Linguistics and Media
Tel: +61 2 9850 8729			Macquarie University
Fax: +61 2 9850 9199         		North Ryde,NSW, 2109
steve@srsuna.shlrc.mq.edu.au		           Australia
http://srsuna.shlrc.mq.edu.au/~steve
------------------------------------------------------------

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help 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-help-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._