Forum Discussion

BLPYPL's avatar
BLPYPL
New Member
8 years ago

R text sizing Bug

Hi,  The text sizing in R seems to incorrect recently. Can anyone help?   I'm using custom R visuals. I simply use "plot" and "text" to plot some text. I use parameter "cex" in "text". It works in...
v-juanli-msft's avatar
v-juanli-msft
Community Support
8 years ago

Hi BLPYPLAnonymous

There was a bug fix a little while ago that appears to have unintentionally led to this regression. We already know the fix, we can start right away on getting it deployed, though it may take a little while.

In the meantime if this is causing issues, there is a workaround. You can add the following lines to the beginning of your R script:

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

I created a PBIX with 2 R visuals, 1 without the fix and one with. I’ve pasted below 2 screenshots I took: one of the visuals in PBI Desktop, and another of the same pbix once published to service. Once the fix is deployed, these lines can be removed, but they should not cause any issues if you leave them.
 
Best Regards
Maggie
  • Anonymous's avatar
    Anonymous
    Not applicable
    8 years ago

    Hi Maggie,

    Unfortunately this work around does not work with both my production and test code.

    Below you can find my test code:

     

    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)

    • LucasPritz's avatar
      LucasPritz
      New Member
      8 years ago

      Anonymous, your issue seems to be a separate problem than what other people are facing. Did this use to work in PBI Service? From my initial testing it doesn't seem to work in PBI Desktop either (though I see expected behavior in RStudio).

      Edit: Anonymous actually it does work (:
      In your first post you had the plotting with "cex = i*j"
      And in your follow-up with our provided fix you have it with "cex = 4"
      I copied one script into my local PBI Desktop and the other into my RStudio, thinking they were identical except for the workaround, and was very confused!
      Please try in service with actual changing text size, you'll see it!

      Thanks,
      Lucas

      • Anonymous's avatar
        Anonymous
        Not applicable
        8 years ago

        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)

  • BLPYPL's avatar
    BLPYPL
    New Member
    8 years ago

    Hi Maggie,

     

    I tried this solution and it works for me. Please keep me updated when the bug is fixed.