Subversion Repositories bdplot

Rev

Rev 57 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 57 Rev 72
Line 1... Line 1...
1 
bdaxis <- function(side,...){
 1 
bdaxis <- function(side,at=NULL,...){
2 
 
 2 
 
3 
  switch(side,
 3 
  switch(side,
4 
         {mgp <- bdp()$mgp.xaxis },
 4 
         {mgp <- bdp()$mgp.xaxis },
5 
         {mgp <- bdp()$mgp.yaxis },
 5 
         {mgp <- bdp()$mgp.yaxis },
6 
         {mgp <- bdp()$mgp.taxis },
 6 
         {mgp <- bdp()$mgp.taxis },
7 
         {mgp <- bdp()$mgp.raxis }
 7 
         {mgp <- bdp()$mgp.raxis }
8 
         )
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 {
9 
  axis(side, mgp=mgp, lwd=bdp()$lwd,...)
 14 
    axis(side, mgp=mgp, lwd=bdp()$lwd,...)
- 
 
 15 
  }
10 
}
 16 
}