The R Project SVN R-packages

Rev

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

Rev 5400 Rev 5455
Line 248... Line 248...
248 
 
 248 
 
249 
        ## Processing the labels argument
 249 
        ## Processing the labels argument
250 
        if (is.logical(labels) && !labels) labels <- NULL
 250 
        if (is.logical(labels) && !labels) labels <- NULL
251 
        else
 251 
        else
252 
        {
 252 
        {
- 
 
 253 
            if (is.characterOrExpression(labels)) labels <- list(labels = labels)
253 
            text <- trellis.par.get("add.text")
 254 
            text <- trellis.par.get("add.text")
254 
            tmp <- list(col = text$col,
 255 
            tmp <- list(col = text$col,
255 
                        alpha = text$alpha,
 256 
                        alpha = text$alpha,
256 
                        cex = text$cex,
 257 
                        cex = text$cex,
257 
                        fontfamily = text$fontfamily,
 258 
                        fontfamily = text$fontfamily,