Request to handle ggwrap objects

[MahmAbdelwahab]

When saving a ggplot with scales adjusted using function from ggbreak, I am getting a strange behavior from mrggsave, The plot saved by mrggsave shows orginal plot without scales breaks, unlike plot saved by ggsave

library(mrggsave)
library(ggbreak)

p <- ggplot(economics, aes(x=date, y = unemploy, colour = uempmed)) +
  geom_line()

plot <- p + scale_wrap(n=4)

ggsave(plot, file = "plot_ggsave.pdf"        
         , onefile=FALSE
         , device = "pdf"
         , width = 8
         , height = 6
         , units = "in" )

 mrggsave(plot,
        stem = "plot_mrggsave",    
        onefile = FALSE,
        dev = "pdf",
         width = 8 height = 6
    )

mrggsave:

ggsave:

[kylebaron]

Hi @MahmAbdelwahab -

Thanks for the report. The scale_wrap() documentation doesn't seem to mention this, but it looks like the plot you get back has a new class

> class(plot)
[1] "ggwrap" "gg"     "ggplot"

So it isn't "just" a gg object as the documentation suggests. You'll have to render the plot prior to saving it. Either of these should work:

mrggsave(
  grid::grid.draw(plot, recording = FALSE),
  stem = "plot_mrggsave-draw",  
  onefile = FALSE,
  dev = "pdf",
  width = 8, height = 6, 
)

mrggsave(
  print(plot, recording = FALSE),
  stem = "plot_mrggsave-print",  
  onefile = FALSE,
  dev = "pdf",
  width = 8, height = 6
)

We can add a method to handle these plots in the next release so you can pass it and mrggsave will know how to handle it.

Kyle