- if (!is.null(classes)) {
- matlay <- matrix(c(1,2,3,4),1,byrow=TRUE)
- lay.width <- c(3,2,3,2)
- } else {
- matlay <- matrix(c(1,2,3),1,byrow=TRUE)
- }
+ if (direction == 'rightwards') {
+ srt <- 0
+ adj <- NULL
+ horiz <- TRUE
+ if (!is.null(classes)) {
+ matlay <- matrix(c(1,2,3,4),1,byrow=TRUE)
+ lay.width <- c(3,2,3,2)
+ } else {
+ matlay <- matrix(c(1,2,3),1,byrow=TRUE)
+ }
+ } else {
+ srt <- 90
+ adj <- 0.5
+ horiz <- FALSE
+ if (!is.null(classes)) {
+ matlay <- matrix(c(1,2,3,4,4,4),3)
+ } else {
+ matlay <- matrix(c(1,2,3,3),2)
+ }
+ lay.width <- c(5,2)
+ }