The R Project SVN – R – Diff – /trunk/src/library/grDevices/man/palettes.Rd



    cols <- sapply(palette, hcl.colors, n = n)
    ncol <- ncol(cols)
    nswatch <- min(ncol, nrow)
 
    par(mar = rep(0.1, 4),
        mfrow = c(1, min(5, ceiling(ncol/nrow))),
        pin = c(1, 0.5 * nswatch),
        cex = 0.7)
 
    while (length(palette)) {
        subset <- 1:min(nrow, ncol(cols))

Rev 77376	Rev 77416
Line 194...	Line 194...
194	`cols <- sapply(palette, hcl.colors, n = n)`	194	`cols <- sapply(palette, hcl.colors, n = n)`
195	`ncol <- ncol(cols)`	195	`ncol <- ncol(cols)`
196	`nswatch <- min(ncol, nrow)`	196	`nswatch <- min(ncol, nrow)`
197		197
198	`par(mar = rep(0.1, 4),`	198	`par(mar = rep(0.1, 4),`
199	`mfrow = c(1, min(5, ncol \%/\% nrow + 1)),`	199	`mfrow = c(1, min(5, ceiling(ncol/nrow))),`
200	`pin = c(1, 0.5 * nswatch),`	200	`pin = c(1, 0.5 * nswatch),`
201	`cex = 0.7)`	201	`cex = 0.7)`
202		202
203	`while (length(palette)) {`	203	`while (length(palette)) {`
204	`subset <- 1:min(nrow, ncol(cols))`	204	`subset <- 1:min(nrow, ncol(cols))`

The R Project SVN R

(root)/trunk/src/library/grDevices/man/palettes.Rd – Rev 77376 → 77416