Great new way to plot to workbook! Season greetings

[JanMarvin]

Peaceful and relaxing holiday season to everyone! May your workbooks never show corruption :)

# raster idea from "https://stackoverflow.com/a/31804561/12340029"
# christmas tree example from https://gist.github.com/jtleek/4369771

png("christmas_tree.png", width = 100, height = 100, res = 20)
par(mar=c(0,0,0,0))
# Make the canvas
plot(1:10,1:10,xlim=c(-5,5),ylim=c(0,10),type="n",xlab="",ylab="",xaxt="n",yaxt="n")
# Make the branches
rect(-1,0,1,2,col="tan3",border="tan4",lwd=3)
polygon(c(-5,0,5),c(2,4,2),col="palegreen3",border="palegreen4",lwd=3)
polygon(c(-4,0,4),c(3.5,5.5,3.5),col="palegreen4",border="palegreen3",lwd=3)
polygon(c(-3,0,3),c(5,6.5,5),col="palegreen3",border="palegreen4",lwd=3)
polygon(c(-2,0,2),c(6.25,7.5,6.25),col="palegreen4",border="palegreen3",lwd=3)

#Add some ornaments
points(x=runif(4,-5,5),y=rep(2,4),col=sample(c("blue","red"),size=4,replace=T),cex=3,pch=19)
points(x=runif(4,-4,4),y=rep(3.5,4),col=sample(c("blue","red"),size=4,replace=T),cex=3,pch=19)
points(x=runif(4,-3,3),y=rep(5,4),col=sample(c("blue","red"),size=4,replace=T),cex=3,pch=19)
points(x=runif(4,-2,2),y=rep(6.25,4),col=sample(c("blue","red"),size=4,replace=T),cex=3,pch=19)
points(0,7.5,pch=8,cex=5,col="gold",lwd=3)

# Add some presents
xPres = runif(10,-4.5,4.5)
xWidth = runif(10,0.1,0.5)
xHeight=runif(10,0,1)
for(i in 1:10){
  rect(xPres[i]-xWidth[i],0,xPres[i]+xWidth[i],xHeight[i],col=sample(c("blue","red"),size=1))
  rect(xPres[i]-0.2*xWidth[i],0,xPres[i]+0.2*xWidth[i],xHeight[i],col=sample(c("gold","grey87"),size=1))
}
dev.off()
#> png 
#>   2

library(png)
library(colorspace)


x <- readPNG("christmas_tree.png")
y <- rgb(x[,,1], x[,,2], x[,,3])
yg <- desaturate(y)
yn <- col2rgb(yg)[1, ]/255
dim(y) <- dim(yg) <- dim(yn) <- dim(x)[1:2]

pixmatplot <- function (x, ...) {
  d <- dim(x)
  xcoord <- t(expand.grid(1:d[1], 1:d[2]))
  xcoord <- t(xcoord/d)
  par(mar = rep(1, 4))
  plot(0, 0, type = "n", xlab = "", ylab = "", axes = FALSE, 
       xlim = c(0, 1), ylim = c(0, 1), ...)
  rect(xcoord[, 2L] - 1/d[2L], 1 - (xcoord[, 1L] - 1/d[1L]), 
       xcoord[, 2L], 1 - xcoord[, 1L], col = x, border = "transparent")
}

pixmatplot(y)

library(openxlsx2)
wb <- wb_workbook()$add_worksheet(zoom = 75, gridLines = FALSE)

dims <- sprintf("A1:%s%s", int2col(ncol(y)), nrow(y))
ddims <- dims_to_dataframe(dims, fill = TRUE)

pb = txtProgressBar(min = 0, max = 1, initial = 0)
for (i in seq_len(ncol(y))) {
  setTxtProgressBar(pb, i/ncol(y))
  for (j in seq_len(nrow(y))) {
    if (y[j, i] != "#FFFFFF")
      wb$add_fill(dims = ddims[j, i], color = wb_colour(y[j, i]))
  }
}
#> ================================================================================
close(pb)

wb$set_col_widths(cols = 1:ncol(y), widths = 1)
wb$set_row_heights(rows = 1:nrow(y), heights = 9)

# wb$open()