Incompatible with `ggplot2` or is it a plot device issue I don't understand?

[DOSull]

The following model code

extensions [ sr ]

to setup
  clear-all
  sr:setup
  sr:run "library(ggplot2)"
end

to ggplot
  sr:set-plot-device
  (sr:run
    "df <- data.frame(x = rnorm(30), y = rnorm(30))"
    "ggplot(df) + "
    "  geom_point(aes(x = x, y = y))"
  )
  sr:run "ggsave('~/Downloads/test.png')"
  user-message "Plot will close when you close this dialog."
  sr:run "dev.off()"
end  

fails to show a plot in the on-screen plot window, although the expected ggplot shows up as the requested PNG file:

The user-message is my way to cleanly close plot devices - so don't worry about that part.

Is this some subtlety or R plotting, specifically in relation to ggplot that I don't understand? Or is it a problem with the Simple R extension? How do I do I to get an on-screen ggplot to show up?

[ERSUCC]

@DOSull So sorry for the delayed response! The problem is that you need to call print in R in order to properly display the plot in the preview window. For example:

(sr:run "p <- ggplot(...)" "print(p)")

Let me know if that fixes the problem, if you hadn't already found this fix yourself.

[DOSull]

Thanks for getting to it eventually! I think I just dropped the ggplot plots in the example, but it's good to know it's a simple fix. ggplot is widely enough used that it might be good to include this information in the docs.

To be clear: this fixes the problem I was having.