# NOT RUN {
# Shiny gadget
if (interactive()) {
ggplot_to_ppt()
}
# Or with an object's name
library(ggplot2)
p <- ggplot(iris) +
geom_point(aes(Sepal.Length, Sepal.Width))
ggplot_to_ppt("p")
# }
Run the code above in your browser using DataLab