Subversion Repositories bdplot

Rev

Rev 36 | Rev 42 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 36 Rev 37
Line 39... Line 39...
39 
  par(bty=prm$bty)
 39 
  par(bty=prm$bty)
40 
 
 40 
 
41 
 
 41 
 
42 
 ##Set margins
 42 
 ##Set margins
43 
  mar <- prm$mar.nolab
 43 
  mar <- prm$mar.nolab
- 
 
 44 
 
- 
 
 45 
  detmar <- function(idx,lab){
- 
 
 46 
    if (is.null(lab)) {
- 
 
 47 
      mar <- prm$mar.lab[idx]
- 
 
 48 
    } else if(all(is.na(lab))) {
- 
 
 49 
      mar <- prm$mar.nolab[idx]
- 
 
 50 
    } else {
- 
 
 51 
      mar <- prm$mar.lab[idx]
- 
 
 52 
    }
- 
 
 53 
    mar
- 
 
 54 
  }
- 
 
 55 
  mar[1] <- detmar(1,xlab)
- 
 
 56 
  mar[2] <- detmar(2,ylab)
44 
  if( !is.na(prm$xlab) ){ mar[1] <- prm$mar.lab[1] }
 57 
    ##  if( !is.na(prm$xlab) ){ mar[1] <- prm$mar.lab[1] }
45 
  if( !is.na(prm$ylab) ){ mar[2] <- prm$mar.lab[2] }
 58 
  #if( !is.na(prm$ylab) ){ mar[2] <- prm$mar.lab[2] }
46 
  if( any(!is.na(prm$toplab),!is.null(main)) ) { mar[3] <- prm$mar.lab[3] }
 59 
  if( any(!is.na(prm$toplab),!is.null(main)) ) { mar[3] <- prm$mar.lab[3] }
47 
  if( !is.na(prm$rightlab) ){ mar[4] <- prm$mar.lab[4] }
 60 
  if( !is.na(prm$rightlab) ){ mar[4] <- prm$mar.lab[4] }
48 
  par(mar=mar)
 61 
  par(mar=mar)
49 
 
 62 
 
50 
  par(mgp=prm$mgp.global)
 63 
  par(mgp=prm$mgp.global)