inst/testing/colors.R

In stla/hwriteXLSX: Write XLSX Worksheets

setwd("~/MyPackages/hwriteXLSX/inst/testing")
library(hwriteXLSX)

colorMatrix <- matrix(grDevices::colours(), ncol=9)
f <- function(i, j){
  cell(j, i, value = colorMatrix[i,j], color = colorMatrix[i,j])
}
sheet <- list(Colors = do.call(Vectorize(f), expand.grid(i=1:73, j=1:9)))

hwriteXLSX("colors.xlsx", sheet)