Subversion Repositories bdplot

Rev

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

bdaxis <- function(side,at=NULL,...){

  switch(side,
         {mgp <- bdp()$mgp.xaxis },
         {mgp <- bdp()$mgp.yaxis },
         {mgp <- bdp()$mgp.taxis },
         {mgp <- bdp()$mgp.raxis }
         )
  ## this does not support if x is used in stead of at. Maybe better
  ## use a switch boolean parameter POSIXct.
  if(!is.null(at)) if("POSIXct"%in%class(at)){
    axis.POSIXct(side,at=at, mgp=mgp, lwd=bdp()$lwd, ...)
  } else {
    axis(side, mgp=mgp, lwd=bdp()$lwd,...)
  }
}