if (FALSE) {
# Colorado Rockies colors
(pal = mlb.colors("rockies"))
pie(rep(1, length(pal)), labels = sprintf("%d (%s)", seq_along(pal), pal), col = pal)
# Seattle Mariners colors
(pal = mlb.colors("mariners"))
pie(rep(1, length(pal)), labels = sprintf("%d (%s)", seq_along(pal), pal), col = pal)
}
Run the code above in your browser using DataLab