Forum Discussion

JVidal's avatar
JVidal
Icon for Helper I rankHelper I
7 years ago
Solved

[SOLVED] R plotly custom visualization margin padding

Good morning all,    I am creating a custom visualization with R with the plotly package.   The issue I am having is with the margin padding the custom visualization is adding to the output. I ha...
Need Help
  • JVidal's avatar
    JVidal
    7 years ago

    Good morning, 

     

    I have finally managed to get rid of the extra padding introduced in the visualization. I appears the bug is with htmlWidgets, that introduces padding into the html file.

     

    A simple R function can get rid of the padding, such as the one below:

    ReadFullFileReplaceString <- function(fnameIn, fnameOut, sourceString,targetString) {
  if(!file.exists(fnameIn))
    return(NULL)
  tx  <- readLines(fnameIn,encoding = "UTF-8")
  tx2  <- gsub(pattern = sourceString, replace = targetString, x = tx)
  writeLines(tx2, con = fnameOut)
}

    The calling the function like so:

    ReadFullFileReplaceString('out.html', 'out.html', ',"padding":[0-9]*,', ',"padding":0,')

    Credit goes to MS, as the solution was found in one of their R visualizations, PowerBI-visuals-forcasting-exp

    in their script.r file: https://github.com/microsoft/PowerBI-visuals-forcasting-exp/blob/master/script.r

     

     

JVidal's avatar
JVidal
Icon for Helper I rankHelper I
7 years ago

Good morning, 

 

I have finally managed to get rid of the extra padding introduced in the visualization. I appears the bug is with htmlWidgets, that introduces padding into the html file.

 

A simple R function can get rid of the padding, such as the one below:

ReadFullFileReplaceString <- function(fnameIn, fnameOut, sourceString,targetString) {
  if(!file.exists(fnameIn))
    return(NULL)
  tx  <- readLines(fnameIn,encoding = "UTF-8")
  tx2  <- gsub(pattern = sourceString, replace = targetString, x = tx)
  writeLines(tx2, con = fnameOut)
}

The calling the function like so:

ReadFullFileReplaceString('out.html', 'out.html', ',"padding":[0-9]*,', ',"padding":0,')

Credit goes to MS, as the solution was found in one of their R visualizations, PowerBI-visuals-forcasting-exp

in their script.r file: https://github.com/microsoft/PowerBI-visuals-forcasting-exp/blob/master/script.r

 

 

  • Anonymous's avatar
    Anonymous
    Not applicable
    7 years ago

    JVidal ,

    I'm new to R script, where would I add your code in my script to remove the padding?

    Below is my R script example;

     

    source('./r_files/flatten_HTML.r')

libraryRequireInstall("ggplot2");
libraryRequireInstall("plotly")

df <- data.frame(RunID = Values$RunID, CLWT = Values$xCLw, PCLF = Values$xPCLFw) 

g = ggplot(df, aes(x=PCLF, y=CLWT, color= as.factor(RunID)))+
  geom_point(size=2)+
  labs(title="Pan Polar", x = "% CLF",y = "CL")+
  theme(text=element_text(size=8),
        plot.margin = unit(c(0.1,1,0.1,0.1),"cm"))

p = ggplotly(g) %>% config(displaylogo = FALSE, 
                           modeBarButtonsToRemove = list
                           ('toImage',
                             'zoomIn2d',
                             'zoomOut2d',
                             'lasso2d',
                             'hoverCompareCartesian',
                             'select2d'));
internalSaveWidget(p, 'out.html');
    • Anonymous's avatar
      Anonymous
      Not applicable
      7 years ago

      Hi,

      You need to paste the JVidal's script after 

      internalSaveWidget(p, 'out.html')

      That should do it.

      Many thanks to JVidal and the script works well.

       

  • Anonymous's avatar
    Anonymous
    Not applicable
    6 years ago

    Hi JVidal ,

     

    I am also trying to get rid off the extra padding of the custom visual. The R function you provided before, should this be included in script.r file? If so, does it comes before the "g = ggplotly(p); internalSaveWidget(g, 'out.html'); " part or after it.

     

    Thanks in advance.

    Ragards

    • Anonymous's avatar
      Anonymous
      Not applicable
      6 years ago

      Hi JNahar,

       

      Yes, you need to paste/run the above code in the script.r file and for second part of your question, please see the previous discussions in the post

       

      Cheers