Subversion Repositories bdplot

Rev

Rev 57 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
72 pdel 1 
bdaxis <- function(side,at=NULL,...){
55 pdel 2 
 
3 
  switch(side,
4 
         {mgp <- bdp()$mgp.xaxis },
5 
         {mgp <- bdp()$mgp.yaxis },
6 
         {mgp <- bdp()$mgp.taxis },
7 
         {mgp <- bdp()$mgp.raxis }
72 pdel 8 
         )
9 
  ## this does not support if x is used in stead of at. Maybe better
10 
  ## use a switch boolean parameter POSIXct.
11 
  if(!is.null(at)) if("POSIXct"%in%class(at)){
12 
    axis.POSIXct(side,at=at, mgp=mgp, lwd=bdp()$lwd, ...)
13 
  } else {
14 
    axis(side, mgp=mgp, lwd=bdp()$lwd,...)
15 
  }
55 pdel 16 
}