Subversion Repositories bdplot

Rev

Rev 47 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 47 Rev 51
Line 16... Line 16...
16 
    ## should switch be used?
 16 
    ## should switch be used?
17 
    if(any(mfrow<1)){
 17 
    if(any(mfrow<1)){
18 
      stop("Both elements in bdp()$mfrow must be positive. Exiting...")
 18 
      stop("Both elements in bdp()$mfrow must be positive. Exiting...")
19 
    }
 19 
    }
20 
 
 20 
 
21 
    if(mfrow[1]*scaleheight<=4){
21 
    if(mfrow[1]*scaleheight<=4){
22 
      bdp(height=mfrow[1]*scaleheight*paperpars$height)
22 
      height.touse <- min(mfrow[1]*scaleheight*paperpars$height,paperpars$height.full)
- 
 
 23 
      print(height.touse)
- 
 
 24 
      bdp(height=height.touse)
23 
    } else {
 25 
    } else {
24 
      bdp(height=paperpars$height.full)
 26 
      bdp(height=paperpars$height.full)
25 
    }
 27 
    }
26
28
27 
### then the width
 29 
### then the width