R text sizing Bug

Hi Lucas,

Thanks for your support.

While creating a reply to your request the work-around started to work.

To be honest, it is working only with the test code, not with the production one.

I'll let you know if I will be able to fix also the production environment.

Here below the working test code (same as yesterday...)

if (exists("powerbi_rFontName")){
library("showtext")
showtext.opts(dpi = powerbi_rPngDeviceDpi)
showtext.auto()
}

library(grid)
library(gridExtra)

d <- head(iris, 3)
g <- tableGrob(d)

find_cell <- function(table, row, col, name="core-fg"){
l <- table$layout
which(l$t==row & l$l==col & l$name==name)
}
for(i in 2:4){
for(j in 2:6){
index_fg <- find_cell(g, i, j, "core-fg")
g$grobs[index_fg][[1]][["gp"]] <- gpar(cex = 4, col = "green")
}
}

grid.newpage()
grid.draw(g)